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Preface 


This manual describes the 3K Control Basic and 2-80 
Monitor’ programs supplied on the MCB-216 and MCB-216/P 
ROM chips. The text assumes you are familiar with 
programming on a detailed level. If you're not, your 
Cromemco dealer can help you select books that will give 
you the background you need. 


The following Cromemco manuals are referenced in the 
text: 
-- 32K Bytesaver Instruction Manual 


Part No. 023-0002 


== Single Card Computer Instruction Manual 
Part No. 023-0050 


-- RDOS Manual 
Part No. 023-0052 


You can obtain these manuals from your dealer. 
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Chapter 1 


INTRODUCTION TO THE MCB-216 SOFTWARE 


The MCB-216 and MCB-216/P are two-ROM chip sets that 
both come with two programs: 3K Control Basic and the 
Z-80 Monitor. Each of the programs has its own 
specialties. The 3K Control Basic (hereafter called 
Control Basic) is intended for writing, storing, and 
executing programs written in its Basic language. The 
7-80 Monitor is intended for testing and storing machine 
code routines and for controlling a 2-80 microprocessor 
based computer system. 


Put together, the two programs give you the software you 
need to set up and run systems for process control, 
automated testing, data acquisition, and similar 
applications. With them, you can: 


-- Control certain hardware aspects of the system. 
The Z-80 Monitor, for example, allows you to set 
the baud rate on the system's I/O ports. 


== Execute machine code or Control Basic language 
programs recorded in Read Only Memory (ROM), 
Programmable Read Only Memory (PROM), or Erasable 
Programmable Read Only Memory (EPROM). You could 
use either program, for example, to execute a 
program that controls a series of burglar alarms 
and other security devices. (To use machine code 
routines, you must generate the executable code 
with an assembler or a Compier and then copy the 
code into an EPROM.) 


-= To program Intel 2716-compatible EPROMs. You could 
use either program, for example, to record a 
program that monitors productivity on a factory 
floor. (Texas Instrument's 2716 PROM is not 
compatible with Intel's 2716 EPROM. The TI 2516 
PROM is compatible with the Intel 2716.) 


== Test and debug programs to be recorded on EPROMs. 


The use of and differences between the two programs will 
become clearer as you read this chapter. 


Except for some minor differences in their 3K Control 
Basic programs (described in Chapter 2), the software on 
the MCB-216 and MCB-216/P ROM sets are identical. 
Unless otherwise stated, the features described in this 
Manual apply to both versions. 
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FEATURES OF CONTROL BASIC 


Control Basic is really two things. First, it is an 
interactive interpreter capable of such things as 
running programs and programming EPROMs. Second, it is 
a BASIC-like language that you can use to write programs 
that you will later program into EPROMs. Control Basic 
also offers these features: 


-- The interactive interpreter aspect gives you all 
the control over a process control-oriented 
microprocessor machine that you're likely to need. 


-~ Programs execute out of ROM. The only Random 
Access Memory (RAM) required is that needed for the 
variables and the stack. 


_ Programs can read and write to RAM. 
-= Programs can input and output through any port. 


-- Control Basic allows structured programming 
constructs such as FOR-NEXT loops and subroutines. 
The subroutines can be either other Control Basic 
routines or machine code routines. 


-- You can arrange to have a particular program 
automatically execute each time you reset the 
system. 


FEATURES OF THE 2-80 MONITOR 


The 280 Monitor makes it possible to control the 
computer from a terminal keyboard. It includes commands 
to examine and change memory, make a binary or an ASCII 
dump of memory, move and compare blocks of memory, 
output a byte of data to any port, read, write, and 
punch nulls on binary paper tapes, program Intel 
2716-compatible PROMs using the Cromemco 32K BYTESAVER, 
and initialize and control both serial ports on the 
Cromemco TUART. 


Transfer of control to a program in memory can be 
commanded from the keyboard with up to five breakpoints 
set and with the initial contents of the 2-80 registers 
specified. When a breakpoint is encountered during 
execution, control is transferred back to the monitor 
and the contents of all 22 2-80 registers are stored. 
These register values can be examined and changed before 
execution of the program is resumed. 
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HARDWARE REQUIREMENTS 


The MCB-216 requires a minimum of hardware: A Cromemco 
Single Card Computer (SCC) in an S-100 bus system. The 
System Zero was specifically designed to support the 
likely uses of the MCB-216. For most applications, you 
also will want to connect a terminal to the system. If 
you do, it must be RS-232C compatible. 


If you use the MCB-216 software to develop programs to 


‘be placed into EPROMs, then you will need a board 


capable of handling Intel 2716-compatible EPROMs, such 
as the Cromemco 32K Bytesaver. 


ADDRESSING SCHEME 


The MCB-216 software has two minimum addressing 
requirements. The two-chip MCB-216 ROM set must occupy 
addresses 0000H through 1000H. Starting at address 
2000H, there must be at least 1K of RAM that Control 
Basic can use for variables, its stack, a text editing 
area, and for an array. 


Between addresses 1000H and 2000H you can have ROM, RAM, 
or no memory at all. If you have anything between these 
addresses, you'd normally have ROM (or PROMs or EPROMs) 
that has programs applicable to your tasks recorded on 
them. 


Beyond address 2400H, you can have additional memory -- 
either RAM or ROM. If you have additional RAM, it 
normally would start at address 2400H so as to extend 
Control Basic's text editing area. Any extra ROM space 
can either have programmed ROMs or can have erased 
EPROMs that you will program. 


Figure 1-1 shows the addressing scheme. It gives 
addresses both in bytes and in pages. While Control 
Basic can read and write to specific bytes, it normally 
operates in terms of 256 byte pages. For example, the 
command to program an EPROM, SAVE, moves code beginning 
on a page boundary to the beginning of another page 
boundary. 
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MCB-216 MEMORY MAP 
E ADDRESS 
FFFFH 


PAGES 
24H-FFH 
(55 KBYTES) 


as = 2400H 
CONTROL BASIC PROGRAM 
TEXT EDITING 
AREA AND ARRAY @ (1) 


EXTERNAL 
MEMORY 


21FFH-23FFH PAGES 
20H-23H 


CONTROL BASIC VARIABLES, (1 KBYTE) 
INPUT LINE AND STACK 
2000H-21FEH 


SCC RAM 


2000H 


scc 
ROM 3 


PAGES 

10H-1FH 
(4 KBYTES) 

scc 
ROM 2 


1000H 


scc 


ROM 1 3K CONTROL BASIC INTERPRETER 


0423H-OFFFH PAGES 
OOH-OFH 
(4 KBYTES) 


scce 
ROM 0 


Z-80 MONITOR 
0000H-0422H 


Figure 1-1: MCB-216 ADDRESSING SCHEME 


Chapter 2 gives additional information on Control 
Basic's use of memory. The 2-80 Monitor doesn't have 
any requirements beyond those given here. The rest of 
this chapter describes the use of the MCB-216 with 
additional memory. 


Installing external memory which overlaps the Single 
Card Computer's (SCC) 0000H - 23FFH memory area gives 
rise to the situation illustrated in Figure 1-2. For 
memory reads, the SCC reads data only from its onboard 
memory in the address range 0000H - 23FFH, and from the 
external S-100 bus in the address range 2400H - FFFFH; 
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any external memory residing in the 0000H - 23FFH area 
is simply ignored. For memory writes, the SCC writes 
data to its onboard memory and to the external S-100 bus 
in parallel, although writing to the SCC ROM area OOOOH 
- 1FFFH does not alter the MCB-216 contents. Stated 
another way, the SCC listens to only its own memory when 
the memory address is in the range 0000H - 23FFH, and 
onboard RAM memory is transparent to all memory write 
operations (empty onboard ROM sockets are also 
transparent to memory writes). 


MEMORY READS MEMORY WRITES 


ADDRESS ADDRESS 
FFFFH FFFFH 


DATA READ FROM dy DATA WRITTEN TO | 
ADD A READ DATA ADDRESS RANGE —  — — ne WRITE DATA 
400H-FFEFH 2400H-FFFFH 


2400H OATA WRITTEN T 
ad 


o 
vee DRESS RANGE ~~» WRIT A = WRIT A 
DOE SE RAN { RITE DATA = RITE DAT 
DATA READ FROM WRITING DATA TO 
ADDRESS RANGE ~«—- READ DATA NOT REAO ADDRESS RANGE NO WRITING NO WRITING 
OOOOM-23FFMH O000-IFFFH ALLOWED« ALLOWED» 
NOT ALLOWED 
ETA 900K are 


EXTERNAL S-100 
MEMORY 


sec sce EXTERNAL 
+SEE TEXT MEMORY MEMORY $-100 MEMORY 


Figure 1-2: OVERLAPPING MEMORY IN THE SCC 


Additional memory may be added up to the 2-80's 64 KByte 
direct addressing limit, and by incorporating Cromemco's 
memory products with Bank Select, memory may be expanded 
further up to 512 KBytes organized as banks of 64 KBytes 
each. Cromemco memory boards with Bank Select (RAM 
Boards: 16KZ, 64KZ; EPROM Boards: Bytesaver II, 16KPR, 
32K Bytesaver) are mapped into any combination of Memory 
Banks (Bank 0 through Bank 7) by setting an eight 
position slide switch on the board. Banks are enabled 
and disabled under software control by outputting a bank 
select control byte to port 40H, an integral output port 
on each Cromemco product with Bank Select, If a logic 1 
bit (DO through D7) in the bank select control byte 
matches any Memory Bank the -board is mapped into, the 
memory board becomes active and is thus switched into 
the memory map. Conversely, if there is no match 
between any bank activated by the control byte and the 
banks the board is mapped into, the board goes inactive, 
and thus is switched out of the memory map. Finally, 
note in connection with the Bank Select feature that SCC 
onboard memory is not Bank Select controlled. 
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See the Single Card Computer Instruction Manual for more 
information on using additional memory. 


EXECUTING PROGRAMS IN PROMS 


Both Control Basic and the 2-80 Monitor can execute a 
routine stored in a PROM. The routine can reside 
anywhere in memory except between addresses 0000H and 
1000H (the location of the MCB-216) and between 2000H 
and 2400H (the required location for RAM). 


The rest of this section describes a sample routine 
written for a Cromemco Single Card Computer (SCC) using 
MCB-216. 


The example routine is simple, yet complete. The 
program hardware consists of a powered S-100 bus, an SCC 
board, a terminal (TTY), an external parallel data input 
source, and a RESET pushbutton switch. The example 
routine consists of a model MCB-216 ROM chip set, and an 
Intel 2716-compatible EPROM programmed with an executive 
Control Basic routine and three short Z-80 assembly 
language routines. The example routine services 
interrupt requests from one of the SCC interval timers, 
and also from the terminal keyboard via source RDA. 


The routine monitors a parallel 8 bit input data source 
connected to SCC port OAH connector Jl. The routine 
samples parallel data byte X approximately once every 60 
seconds. Value Y is then determined from sample X by 
the linear relationship Y=A*X+B, where A=+1.2 and 
B=-10.8 by assumption. The value Y is then formatted 
and output to the terminal printer. In addition, if any 
key is pressed on the terminal keyboard, a sample X is 
to be immediately taken, and the corresponding function 
value Y is output to the terminal printer. 


A schematic/block diagram of the routine hardware is 
shown in Figure 1-3. The routine software uses the 
Control Basic AUTORUN command, thus routine execution 
begins automatically after power is applied, or after 
S-100 bus line RESET is forced active low. 
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PARALLEL 
INPUT 


DATA 
SOURCE 


CONTROL BASIC PROGRAM TEXT ~] 
AND ZBO ASSEMBLY ROUTINES 


EMPTY- 


Figure 1-3: HARDWARE NEEDED FOR EXAMPLE 


Two Control Basic features should be discussed before 
the routine text is presented. The first concerns the 
AUTORUN command. If the first line in a Basic routine 
stored on page 10H is the AUTORUN command, then the 
routine on page 10H will run automatically at power-on 
or upon RESET, and the serial baud rate will also 
automatically be set to 9600 baud. The second feature 
concerns interrupt servicing. When operating in 
interrupt mode (IM) 0, the restart service routine 
starting addresses are 00H, 08H, 10H, 18H, 20H, 28H, 
30H, and 38H which correspond to RST 00H through RST 
38H. This address range is occupied by one of the 
MCB-216 ROMs, however, whose contents may not be altered 
by the user. Consequently, model MCB-216 ROMs have been 
Programmed at each RST service address with JP 
instructions to fixed locations in SCC. The programmed 
jumps are shown in Figure 1-4. 
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RESTART SCC ROM 2 
ADDRESS JUMP ADDRESS 


RST 00h (TIMER 1) NOT AVAILABLE 
RST 08h (TIMER 2) JP 10F2h 
RST 10h (INT) JP 10F4h 


RST 20h (RDA) JP 10F8h 
RST 28h (TBE) JP 10FAh 
RST 30h (TIMER 4) NOT AVAILABLE 


( 
( 
( 
RST 18h (TIMER 3) JP 10F6h 
( 
( 
( 
RST 38h (TIMER 5/PI7) JP 10FEh 


Figure 1-4: RESTART ADDRESSES 


The routine Control Basic text shown in Figure 1-5 
consists of two segments. The first segment is a short 
routine loaded on page 10H which issues the AUTORUN 
command, and then RUNs the other segment which is loaded 
on page 11H. This second segment is the Control Basic 
executive routine. The executive routine is loaded on 
page 11H instead of page 10H because there is not 
sufficient memory space between the end of the page 10H 
Basic routine and the first interrupt vector address 
(10F2H) to contain it. Both fully annotated and 
compacted versions of each routine segment are presented 
below, along with their corresponding memory storage 
requirements. Note in the abbreviated routine texts, 
that a large line number occupies the same memory space 
as a small one, except when it is used as an argument of 
a Basic statement, and that spaces appearing after a 
line number but before the statement are not stored. 


The first Control Basic routine segment is self 
explanatory. In the second segment, the executive 
routine begins by calling an assembly language routine 
with a starting address of 1080H which initializes the 
SCC routine. (A full description of this -routine 
appears in Figure 1-6 along with its listing.) Then 
variable M, used to count the number of elapsed minutes, 
is initialized to zero. Variables T and K are then 
equated to SCC RAM address locations to save routine 
text space, since they are referenced more than once 
later in the text. RAM locations T, T+l and K are used 
to pass data between the two interrupt service routines 
and the Control Basic routine. Locations T and T+l hold 
a two byte COUNTDOWNS value in low-high style, which 
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PAGE 10H CONTROL BASIC TEXT (26 BYTES) 


100 AUTORUN 
200 RUN #11 


COMPACTED VERSION OF THE SAME PROGRAM (23 BYTES) 


100 AUTORUN; RUN%11 


PAGE 11H CONTROL BASIC TEXT (880 BYTES) 


100 REM 
110 REM « >>> SYSTEM EXECUTIVE ROUTINE <<< 
120 REM 
130 REM 
REM :: CALL ASSY INITIALIZATION ROUTINE 
CALL %1080 
REM :: INITIALIZE 3CB VARIABLES;. M (MINUTE COUNT), 
REM :: T (COUNTDOWNS RAM ADDR), K (KEYDOWN FLAG ADDR) 
M=0 
T=%23F0 = 
K=% 23F2 
REM :: CHECK KEYDOWN FLAG (NON-ZERO -> TTY KEY PRESSED) 
IF GET(K)=0 GOTO 260 
REM :: TTY KEY PRESSED. RESET FLAG & PRINT READING. 
PUT (K) =0 
GOSUB 1000 
REM :: CHECK TIME COUNT (COUNTDOWNS = 6000 -> MINUTE UP) 
IF (GET(T)+%100*GET(T+1))<6000 GOTO 210 
REM :: MINUTE IS UP. RESET TIME COUNT, UPDATE AND 
REM :: PRINT MINUTE COUNT, PRINT READING. 
PUT (T) 20,0 
M=M+1 
IF (M=32767) M=0 
PRINT 'MINUTE:',#5,M,' ', 
GOSUB 1000 
REM :: LOOP BACK TO CHECK KEYDOWN 
GOTO 220 
REM 
REM :: SUBROUTINE SCALE, FORMAT & PRINT READING 
REM 
X=IN(%0A) 
Y=12*X-108 
PRINT "READING: ',#5,Y/10,'.',#1,ABS(Y-10* (Y/10)) 
RETURN 


C.%1080;M=0;T=%23F0;K=T+2 

IF G.(K) #0 PUT(K)=0;GOS.5 

IF (G.(T)+G. (T+1) *$100) £6000 G.2 

PUT (T) =0,0;M=(M+1) * (M#32766);P.'MINUTE:',#5,M,! ',;GOS.5;G.2 
Y=12*IN(%A)-108;P.'READING:',#5,Y/10,'.',#1,ABS(Y-10*(Y/10));R. 


Figure l-5: LISTINGS OF EXAMPLE CONTROL BASIC ROUTINES 


represents a whole number of elapsed 10 millisecond 
intervals. This number is incremented by the TIMER 2 
service routine once every 10 milliseconds. Location K 
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holds a one byte KEYDWN flag which is set to a nonzero 
value by the RDA service routine whenever any terminal 
key is pressed. 


After these initialization tasks are completed, the 
executive routine then checks the KEYDWN flag, and if a 
terminal key has been pressed, the flag is reset to 00H 
by a PUT statement, and a Basic subroutine is called 
which reads the parallel input data, scales it, and 
prints it to the terminal. Locations T and TH are then 
Sampled to determine if one minute has elapsed, which 
corresponds to 6000 COUNTDOWNS of 10 milliseconds each. 
Note that the GET function evaluates to a one byte 
value, thus contents (T) and (T+l) must be scaled and 
added together to determine the actual two byte 
COUNTDOWNS value. If one minute has elapsed, then 
locations T and T+l are zeroed by a PUT statement, and 
the minute count M is incremented. The Control Basic 
programmer must guard against expressions which exceed 
32767 in absolute value, as program execution will 
terminate with the error message HOW? in such cases. 
Thus, in this routine M is reset to zero when it reaches 
the increment statement with a current value of 32766. 
The current minute count is then formatted and printed 
to the terminal, followed by a call to the subroutine 
which prints out the scaled reading value. 


This subroutine begins by reading SCC input port OAH. 
The read value, X, may vary from 0 to 255 decimal, and 
thus the value Y=1.2*X-10.8 would vary from -10.8 to 
295.2 in steps of 1.2. To calculate these decimal 
values using integer arithmetic, a value of Y ten times 
larger than the desired Y value is first calculated. 
Since this value must lie between -108 and 2952, no 
overflow is possible. The whole number part is then 
obtained by computing Y mod 10 (no rounding). The 
decimal point is printed out as a separate ASCII 
character, and the decimal part is then found by 
calculating Y - ten times (Y mod 10). This digit is 
then printed out close packed to the period character to 
create a standard form decimal number. 


The routine 7-80 Assembly Language listing appears in 
Figure 1-6. 'The assembly routines consist of a routine 
initialization subroutine, a TIMER 2 interrupt service 
routine, an RDA interrupt service routine, and two 
programmed relative jump instructions. The assembly 
object code resides at 1080H through 10B6H (54 bytes), 
the SCC ROM 2 page 10H area lying between the short 
AUTORUN Control Basic routine and the RST service jump 
area 10FOH through 10FFH. 
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CROMEMCO CDOS Z80 ASSEMBLER version 02.15 


3E01 
D300 
3E09 
D302 
3E12 
D303 
210000 
22F023 
22F223 
3E9C 
D306 
ED46 
FB 

co 


FS 
JEFF 
32F223 
el 

FB 

cg 


BR 


Figure 1-6: 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 


BAUD: 
COMREG: EQU 02H 
INTMSK: EQU 03H 


K: 


T: 


; 
i 
i 


SRVTM2: 


; 


SRVRDA: 


; 
; 


; 


TENMS: EQU SICH 


TIMER2: EQU 06H 


EXAMPLE SYSTEM 280 ASSEMBLY ROUTINES STORE ON 
PAGE 10H IN SCC SOCKET ROM 1. THE INITIALIZATION 
ROUTINE IS CALLED BY THE 3CB EXECUTIVE. THE 
TIMER 2 INTERRUPT SERVICE ROUTINE IS REACHED BY 
A RST 08H WHICH JUMPS TO ROM 1 ADDRESS 10F2H, 

THIS ROUTINE PROGRAMS A RELATIVE JUMP TO THE 
TIMER 2 SERVICE STARTING ADDRESS AT THIS LOCATION. 
LIKEWISE, RDA IS REACHED BY A RST 20H, A JUMP TO 
10F8H, AND A RELATIVE JUMP TO THE RDA SERVICE 
STARTING ADDRESS. 


NOTE THAT THE ASSEMBLY ROUTINES ARE SANDWICHED 
BETWEEN THE CONTROL BASIC 'AUTORUN'-'RUN %11' 
PROGRAM AND THE RELATIVE JUMP INSTRUCTIONS ON 
PAGE 10H. THE ASSEMBLY LISTING IS ARRANGED SO 
THAT ALL PAGE 10H BYTES OCCUPIED BY ASSEMBLY 
OBJECT CODE APPEAR IN SEQUENTIAL ADDRESS ORDER. 


;BAUD RATE PORT 
#COMMAND REG. PORT 

7 INTERRUPT MASK PORT 
¿TTY REYDWN FLAG ADDR 
710 MSEC DELAY COUNT 
1 COUNTDOWNS ADDR 
;TIMER 2 PORT 


i 
SCC SYSTEM INITIALIZATION SUBROUTINE 


EQU OOK 


EQU 23F2H 


EQU 23F0H 


1080H ;PAGE 10H START ADDR 
;TTY 110 BAUD, 

;TWO STOP BITS 

;INTA ENABLE, 

‚RESET 5501 

;UNMASK ONLY SOURCES 
;RDA AND TIMER 2 
CLEAR HL 

¡ZERO COUNTDOWNS 
RESET KEYDWN FLAG 
;LOAD AND 

START TIMER 2 

; (EMPHASIS ONLY) 
;ENABLE 280 INTERRUPTS 
;RETURN TO 3CB EXEC 


A,00000001B 
BAUD,A 
A,00001001B 
COMREG,A 
A,00010010B 
INTMSR,A 
HL,0 

(T),HL 

(K), HL 
A,TENMS - 
TIMER2,A 


TIMER 2 SERVICE ROUTINE 


SAVE AF ON STACK 
;SAVE HL ON STACK 
LOAD AND START 
;TIMER 2 AGAIN 

;GET COUNTDOWNS 

; INCREMENT 

; RESTORE 

¿RESTORE HL 

RESTORE AF 
¿RE-ENABLE INTERRUPTS 
;CONTINUE 3CB PROGRAM 


PUSH AF 


RDA SERVICE ROUTINE 


SAVE AF ON STACK 
;SET KEYDWN FLAG TRUE 


PUSH AF 
A,-l 
(K), A ; 
AF ¿RESTORE AF 
RE-ENABLE INTERRUPTS 
CONTINUE 3CB PROGRAM 


PROGRAMMED RELATIVE JUMPS 


ORG 10F2H ¿RST 08H VECTORED HERE 


JR SRVTM2 ¿JR TO TIMER 2 SERVICE 


; 
ORG 10F8H ;RST 20H VECTORED HERE 


; 
JR SRVRDA ;JR TO RDA SERVICE 


END 


LISTING OF EXAMPLE ASSEMBLY ROUTINES 
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The initialization subroutine is called by the Control 
Basic executive, and it sets the terminal baud rate and 
stop bit number, enables the automatic 5501 INTA 
response with bit INE, and resets the 5501. It masks 
off all 5501 interrupt sources except RDA and TIMER 2, 
zeroes the common memory data locations T, T+l and K, 
and starts TIMER 2 with its first 10 millisecond DELAY 
COUNT. Interrupts are then enabled, and the routine 
returns to the Control Basic executive. Notice that the 
SP register is not initialized as this function is 
automatically performed during the Control Basic cold 
Start procedure, 


Every 10 milliseconds TIMER 2 reaches timeout, which 
interrupts the Control Basic routine and causes the 
TIMER 2 service routine to be executed. The service 
routine restarts TIMER 2 on a new-10 millisecond 
interval, and increments the two byte COUNTDOWNS value 
at RAM addresses T and Ttl, re-enables interrupts and 
RETurns to the Control Basic routine, continuing from 
the point of interruption. 


Pressing any key on the terminal keyboard sends a data 
byte to the 5501 serial receiver over SCC connector J4, 
and thus generates an RDA condition. The RDA condition 
then interrupts the Control Basic routine and causes the 
RDA service routine to be executed. The service routine 
sets the one byte KEYDWN flag at RAM address to nonzero 
data OFFH, re-enables interrupts, and RETurns to the 
Control Basic routine, continuing from the point of 
interruption. 


The last portion of the listing consists of the two 
relative jump instructions to the TIMER 2 and RDA 
service routines. Note that if the service routines are 
displaced from these jump instructions by more than 128 
locations, three byte JP instructions should be used 
instead of the two byte JR instructions. 


PROGRAMMING EPROMS 


Both Control Basic and the 7-80 Monitor can record 
routines in EPROMs. Both of them can test and modify 
routines intended for EPROMs. Only Control Basic, 
though, allows you to write a program. 


You can use Control Basic to write and test routines 
written in its language. To prepare machine code 
routines, you have two choices. You can hand assemble 
the routines and enter them by using the PUT Control 
Basic command or the SM 7-80 Monitor command. Or you 
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can use an assembler or compiler to produce the machine 
code. This second alternative requires a disk system 
running under either the CDOS or Cromix operating 
systems. 


Once the routine is ready, both Control Basic and the 
Z-80 Monitor record it into an EPROM by reading the 
routine from its original location in memory and then 
writing a copy to the location of the EPROM. 


The rest of this section gives examples of how you would 
program an EPROM with Cromemco equipment. 


Developing system routines in 3K Control Basic with 
linkages to only small hand assembled Z-80 subroutines, 
requires the minimum amount of system development 
hardware. A minimum system, which would include a 
powered S-100 bus, an SCC board, a Cromemco 32K 
Bytesaver board, an RS-232C terminal, and one or more 
erased Intel 2716-compatible EPROMs, is shown in Figure 
1-7. 


32K BYTESAVER™ 


RT SERS 


RS-232 OR 20 mA TERMINAL 


ET $-100 BUS 
FIRMWARE 


a UNREGULATED 


OP 
Sa POWER 


SUPPLIES 
ERASED 2716 EPROM ICS 


Pigure 1-7: MINIMUM SCC DEVELOPMENT SYSTEM 
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In this system, routine text would be entered from the 
terminal keyboard into the Basic program text area, 
Spanning SCC RAM addresses 2201H through 23FFH. The 
text area capacity is 511 (decimal) bytes, or 
approximately 2 pages, where 1 page equals 256 bytes. 
Each Basic routine requires six bytes of overhead memory 
space. In addition, three bytes of overhead are 
required for each program line; two for the line number 
and one for a line delimiting CR character. Any other 
program character, including a space character, occupies 
one byte per character (Spaces appearing after a program 
line number but before the line statement are not 
stored, however). Put another way, the text capacity is 
approximately 50 Basic program lines of seven characters 
per line, or 7 Basic program lines of 70 characters per 
line. Very efficient use of the text area may be made 
if the user also takes full advantage of the Basic 
statement abbreviations and multiple statements per line 
features. It should also be noted that an array (I) is 
competing with program characters for text area space. 
Array (I) begins with element (0) at the end of the 
program text, and continues with (1), (2), and so on, up 
to the end of the text area. Each array element 
requires two bytes of storage. 


After interactively verifying text area program 
behavior, the entire program text may be moved to any 
whole page boundary in memory by using the Basic SAVE p 
command, where p is a page number specification between 


„oe and 255. This command is typically used to move the 


program text to RAM memory, but it may also be used to 
program an Intel 2716-compatible EPROM resident in a 32K 
Bytesaver board. The following example will illustrate 
this procedure. 


Assume an SCC system contains a 32K Bytesaver board 
which is switch mapped into memory COOOH through FFFFH. 
Assume further that an erased Intel 2716-compatible 
EPROM occupies a 32K Bytesaver socket spanning addresses 
COOOH through C7FFH (or pages 192 through 199 decimal). 


The Basic program listed in Figure 1-8 is then entered 
into the text area from the terminal keyboard: 
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: THIS BASIC PROGRAM IS LOCATED ON PAGE 10H = 16D, 

: AND IT IS LINKED TO THE BASIC PROGRAM ON PAGE 12H = 18D. 
: DEFINE VARIABLES & ARRAY ELEMENTS, 

; Bel; C=2; @(0)=1; @(1)=2 


REM: OUTPUT VALUES TO TERMINAL. 

PRINT A,B,C,@(0) ,@(1) 

REM: RUN PROGRAM STARTING AT PAGE 12H = 18D. 
RUN 18 


Figure 1-8: SAMPLE DEVELOPMENT ROUTINE -- 1 


This program occupies 312 (138H) bytes, or 1.22 pages in 
the text area. To store this program in Intel 
2716-compatible EPROM, the 32K Bytesaver PROGRAM POWER 
switch would be positioned ON, and the Basic direct 
command SAVE 192 would be issued. Basic replies SAVED 
ON PAGE %C0 TO %Cl after Intel 2716-compatible EPROM 
programming is complete, where the prefix % is taken to 
mean the number following is in hexadecimal. The stored 
Basic program text then occupies the address range COOOH 
through C137H, or two pages of the Intel 
2716-compatible's eight page memory capacity. After 
programming, the PROGRAM POWER switch would be 
positioned OFF. 


Now assume the text area is cleared by issuing a Basic 
NEW direct command, and the program listed in Figure 1-9 
is entered in the text area: 


REM: THIS BASIC PROGRAM IS LOCATED ON PAGE 12H = 18D, 

REM: AND IT IS LINKED TO THE BASIC PROGRAM ON PAGE 10H sl6D. 
REM: NOTE RE-USE OF LINE NUMBERS, 

REM: ARRAY VALUES AND VARIABLE VALUES ARE GLOBAL QUANTITIES; 


REM: THEY ARE DEFINED BY THE PROGRAM ON PAGE 16D. 
REM: OUTPUT VALUES TO TERMINAL. 

PRINT A+B-C, @(0)+@(1) 

REM: GO BACK AND RE-RUN PROGRAM ON PAGE 16D. 

RUN 16 


Figure 1-9: SAMPLE DEVELOPMENT ROUTINE -- 2 
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This program occupies 390 (185H) bytes, or 1.52 pages in 
the text area. This program could also be stored in the 
same Intel 2716-compatible EPROM on pages 194 and 195 by 
turning the PROGRAM POWER switch ON, and issuing the 
Basic direct command SAVE 194. Basic would then reply, 
SAVED ON .PAGES %C2 TO %C3 after programming is complete. 
The actual program text would then span addresses C200H 
through C385H on the Intel 2716-compatible. The 
programs are designed to be resident at pages 16 and 18 
decimal, so to run them, the system power would be 
turned OFF, the Intel 2716-compatible EPROM would be 
removed from the 32K Bytesaver board and inserted in SCC 
socket ROM 2 (which spans pages 16 through 23 decimal). 
System power would then be turned ON, and after several 
RETURN key strokes, Control Basic would prompt: OK >. 
Issuing the direct command RUN 16 would then begin 
execution of the linked Basic programs. 


Note that these programs could also be run while 
resident on the 32K Bytesaver board by changing program 
line 80 in the first program segment to 80 RUN 194, and 
program line 90 in the second program segment to 90 RUN 
192, Program execution would then commence after 
issuing a RUN 192 direct command. Also note that these 
two heavily remarked and unabbreviated programs make 
very poor use of the Basic text editing area. Refer to 
the programs presented in the previous section for 
examples of efficient text area usage. 


The inconvenience of linking together two page text area 
segments in EPROM memory to form larger system programs 
may be easily overcome by adding more RAM memory to the 
Basic text editing area. Cromemco's 16KZ dynamic RAM 
board, mapped into addresses 0000H through 3FFFH would 
expand the text area to 2201H through 3FFFH (7678 
bytes), or roughly a fifteen fold increase. Cromemco's 
64KZ static RAM board mapped into addresses 0000H 
through FFFFH would expand the text area from 2201H 
through 23FFH (511 bytes) to 2201H through FFFFH (56830 
bytes), or approximately a seven fold increase. If more 
memory is added to the development system to expand the 
editing area, two restrictions must be observed: 


1. The additional memory must be RAM, and it must 
overlap, or be contiguous with SCC RAM memory, 
which ends at address 23FFH. 


2. The end of the text area is automatically set to 
2400H by an SCC Basic initial start. The contents 
of memory location 21FDH contains this value in 
low-high style, i.e., (21FDH), (21FEH) equals 00H, 
24H. The values in these locations may be changed 
to point to the new end of text either with the 
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Basic PUT direct command/statement, or with the 
Basic LOCK direct command. For example, if using 
the 64KZ RAM board, the end of text area would be 
specified with either a PUT(%21FD) equals %3000 
command or program statement, or a LOCK 330 
command. If using the 16KZ RAM board, the 
corresponding commands would be PUT(%21FD) equals 
$4000 and LOCK 340. 


With an enlarged Basic text area, more than one 32K 
Bytesaver resident Intel 2716-compatible EPROM may be 
programmed sequentially by a single Basic SAVE command. 
Note that the Intel 2716-compatible EPROM's must 
maintain their relative positions if moved to other 
sockets to maintain the correct program text sequence. 
It is anticipated then that in the typical small, 
dedicated SCC application, programs would be developed 
in Control Basic and the program text committed to one 
or two Intel 2716-compatible EPROMs loaded into SCC 
sockets ROM 2 and ROM 3 (which allows for 4 KBytes of 
program text). The Control Basic interpreter/SCC 
Monitor would reside in SCC sockets ROM 0 and ROM 1, and 
SCC RAM memory would be used only for Basic variables, 
input line, stack (in memory area 2000H through 21FEH), 
and array (I) storage (in memory area 2201H through 


. 23FFH). With all of the program text in Intel 


2716-compatible EPROM and none in the text area, array 
(I) would start at 2203H, leaving room for over 250 two 
byte array values. In addition to Basic text, ROM 2 and 
ROM 3 could also contain small hand assembled 2-80 
routines which are CALLed by the Basic program text 
where high processing speed is required, and any part of 
SCC RAM memory not used by array (I) could be used for 
scratch pad memory either by the Basic program or by 
assembly routines. 
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Chapter 2 


INTRODUCTION TO 3K CONTROL BASIC 


Control Basic is a computer language developed by 
Cromemco specifically for process control, automated 
testing, data acquisition, and similar applications. 
Control Basic is also an excellent language for 
first-time users of microprocessor systems since it is 
both easy to use and very powerful. Some of the 
advanced features of Control Basic include: 


l. Programs can be executed directly from ROM without 
first being transferred to RAM. 


2. Programs can read and write to RAM locations 
directly by use of the GET and PUT commands. 


3. Programs can input from and output to I/O ports 
directly by use of the IN and OUT commands. 


4, Machine language subroutines can be called directly 
by use of the CALL command. Up to 60 arguments can 
be passed from Control Basic to the subroutine in a 
single call. 


55 Extensive output formatting is available including 
soft and hard terminal width, tabs, numerical field 
width, over-printing, and decimal or hex number 
output. 


6. Multiple commands can be included in each 
statement. 


7. Numbers can be represented in decimal, hexadecimal, 
or ASCII format both within the program and as 
input to the program. 


8. The INPUT command automatically prints the variable 
name as the prompt if the program does not provide 
one. Operators making a syntax error in response 
to an INPUT request will be prompted again. 


9. All commands can be abbreviated to produce very 
compact source code. 


10. String input, output, and string manipulations can 
be carried out. i 


li. Multiple program files can be created. These 
programs can be run independently or may call one 
another as subroutines. 
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12. Programs can be stored in Intel 2716-compatible 
EPROM in a 32K Bytesaver* from Cromemco using the 
SAVE command. 


An unusual and very important feature of Control Basic 
in the two-ROM set (MCB-216) is the AUTORUN command. If 
this command makes up the first line of the Basic 
program, then execution of the program will begin 
automatically upon power-on or reset without user 
intervention. This eliminates the need for an operator 
to type "RUN" in order to begin program execution. 


DIFFERENCES BETWEEN MCB-216 AND MCB-216/P 


Control Basic comes in two versions:. MCB-216 and 
MCB-216/P. Their differences are fairly minor: 


-- The MCB-216 version has special support for paper 
tape readers. The MCB-216/P version supports a dot 
matrix printer instead. 


-- The MCB-216 version requires all input to be in 
upper case, The MCB-216/P version allows both 
upper and lower case. 


-- The MCB-216 version doesn't have a non-maskable 
interrupt capability. The MCB-216/P does. 


These differences are discussed in more detail 
throughout this part of the manual. 


The two versions also use memory Slightly differently 
and have somewhat different I/O routines. You can find 
these differences by comparing the listings in Appendix 
A. Except as noted in this chapter, these differences 
have no effect on the features described in this part of 
the manual. 


ENTERING AND EXITING CONTROL BASIC 


When you boot the system, you enter Control Basic at its 
cold start address. The text area is initialized and 
all values, such as the terminal baud rate, have their 
default values. 
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You can leave Control Basic in two ways: 


The QUIT command is used to transfer control to the 
warm start address of the 2-80 Monitor. Typing "B 
RETURN" then will pass control from the Monitor 
back to the Control Basic warm start. The stored 
Control Basic program will never be cleared because 
the Monitor always enters at the MCB-216 "stored 
program warm start." 


The RDOS command is for users of Control Basic who 
also have a 4FDC or 16FDC Disk Controller board in 
their system and one or more disk drives. Typing 
"RDOS" as a direct command causes control to pass 
from Control Basic to the warm start of the 
resident ROM monitor on the 4FDC and 16FDC known as 
RDOS. The disk read or write commands of RDOS may 
then be used to load programs into or save them 
from memory, respectively. See the RDOS Manual for 
more information. 


To return to Control Basic after using RDOS, type 
"G452 RETURN" to enter at the "stored program warm 
start", You may also return via one of the other 
MCB-216 restarts. 


Control Basic's entry points are listed here: 


type of 
restart address function 


initial and 


cold start 423H 


initializes everything and 
sets baud rate of console 
terminal. 


new program 


warm start 4478 


warm start which does not 
re-initialize margins or 
console baud rate, 
etc. but does clear 
program area; same effect 
as NEW command. 


stored program 


warm start 452H 


normal warm start for 
MCB-216; program is 
preserved but stack 
pointer is re-initialized. 
The Monitor "B" command 
causes a jump to this 
location. 
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Once you enter Control Basic, the prompt appears: 


OK 
> 


and the program will be waiting for input. To display 
any stored program, type "LIST" (see Chapter 5). To 
delete that program, type "NEW" (see Chapter 5). To 
enter a new statement, type the statement number and the 
text of the statement. To delete a statement, type the 
statement number and a RETURN only. 


ENTERING PROGRAMS FROM THE CONSOLE DEVICE 


You communicate with the Control Basic program through a 
console of some type. (You can have a paper tape 
reader-punch or a dot matrix printer attached to the 
console.) With the MCB-216 version of Control Basic, 
you must enter commands or data only in upper case, 
With the MCB-216/P version, you can enter commands or 
data in either upper or lower case. Control Basic, 
though, converts all lower case letters to upper case 
before they're echoed to the console or used within the 
program. 


If you make an error in entering a line and haven't 
pressed CR, you can delete the last character by using 
the RUBout or DELete key or delete the entire line with 
the ESCape key. Control Basic will echo a back-slash 
(\) for each deleted character. A deleted line is 
marked by a CR-LF and an up-arrow (^). The ALT-MODE key 
(ASCII 7DH) may be used in place of the ESC key to 
delete lines (useful with a teletype). 


To replace a statement, you can retype the statement 
number and the correct commands. Control Basic will 
replace the old statement with the new one. To delete a 
statement, retype its number and press RETURN. 


You can verify the corrections or insertions to your 
program by using the LIST command. LIST allows you to 
view either single statements or complete blocks of 
text. 
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USING A PAPER TAPE READER 


The I/O drivers allow a paper tape reader and punch to 
be attached to the console. In the MCB-216/P version of 
Control Basic, anything read in from the paper tape is 
also printed on the console. In the MCB-216 version, 
you can use Control-O to suppress the printing on the 
console. 


A program on paper tape may be read in without having it 
typed out on the console device by either the operator 
pressing CTRL-O, or by the tape containing the CTRL-O 
character itself in the leader. 


Pressing Control-O complements the value stored in 
"OCSW" in RAM. Thus, this may also be changed within a 
Control Basic program rather than from the console to 
allow the inputting of a password or other invisible 
characters. An example will illustrate this: 


10 PRINT "INPUT PASSWORD: ",; REM Prompt operator 

20 PUT($21E6)-XOR(GET($21E6) ,%FF); REM Complement "OCSW" 
30 INPUT $(0); REM Input the actual password 

40 PUT(321E6)=XOR(GET(%21E6) ,3FF); REM Allow echo again 


Refer to Chapter 4 for explanations of the commands used 
above and to Chapter 3 for an explanation of strings 
S(J), and the GET and XOR functions. 


To produce a paper tape of a Control Basic program using 
the punch, one method is to type "LIST" (no CR), turn on 
the punch, type as many nulls as are desired for a 
leader, and then a carriage return. Nulls are produced 
on a teletype by Control-Shift-P and on a CRT by 
Control-@. When the listing is finished, type more 
nulls for a trailer and then turn off the punch. 


A paper tape of the form just described may be read back 
by .the method described earlier: First type "NEW" to 
clear any current program; then press Control-O and turn 
on the tape reader. When the paper tape is finished 
loading, turn off the reader and press Control-O to once 
again allow echoed input and output. 
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USING A DOT MATRIX PRINTER 


The MCB-216/P version of Control Basic can echo all 
output sent to the console to a dot-matrix printer. The 
echoing is initiated by pressing Control-P once and is 
terminated by pressing Control-P again. Control Basic 
outputs the select-printer control character (11H) when 
you initiate the echoing. If there is no printer on the 
system and you press Control-P, the computer loops until 
you again press Control-P as it waits for a printer to 
indicate it is ready. 


The printer driver resides in ROM beginning at address 
OEE7H and can be called by user written routines as can 
any other Control Basic driver. The routine prints each 
output character written to register A if the echo 
toggle, stored in RAM at location 21E6H, is non-zero. 
The driver preserves all registers and flags. 


The signal wires in the printer cable have different 
assignments than the pins at connector J3, which 
requires that you either (1) use the Single Card 
Computer/C3703 Printer Adapter Board (part number 
020-0093) or (2) that you rewire the printer cable plug. 
Table 2-1 shows how the cable pins must be wired to use 
the dot matrix printer. 
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Table 2-1: CABLE PIN ARRANGEMENT FOR DOT MATRIX PRINTER 


wire from to SCC pin 
printer pin l 


connected 

connected 

connected 

(D6 in) 

(D4 in) 

(D2 in) 

(DO in) 

connected 

connected 

(D6 out) 

(D4 out) 

(D2 out) 

(D0 out) 

(Logic Ground) 

(for interrupt-driven printer 
programs) 
connected 

(for non interrupt-drive 
programs) i 
(D7 in) 

(D5 in) 

(D3 in) 

(D1 in) 
connected 
connected 

(D7 out) 

(D5 out) 

(D3 out) 

(D1 out) 


WOMAN HNMR WD FH 


MEMORY ALLOCATION 


The minimum memory requirements to run Control Basic are 
RAM from 2000H to 23FFH and the Control Basic 
Interpreter and Monitor in ROM from 0 to FFFH -- the 
exact configuration of the Cromemco Single Card 
Computer. Memory from 1000H to 1FFFH is usually ROM (as 
on the SCC) and may be used to store previously SAVEd 
programs. Locations 2400H to the end of addressable 
memory may be used for SAVEd programs and may be either 
ROM or RAM. Figure 2-1 illustrates this layout. 
Appendix A gives a detailed breakdown of the RAM from 
2000H to 21FEH, which contains Control Basic variables, 
stack, input buffer, and console parameters. 
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MCB-216 MEMORY MAP 


AODRESS 


fe 


PAGES 
24H-FFH 
(55 KBYTES) 


= 2400H 
CONTROL BASIC PROGRAM 
TEXT EDITING 
AREA AND ARRAY (@ (1) 


EXTERNAL 
MEMORY 


21FFH-23FFH PAGES 
20H-23H 


CONTROL BASIC VARIABLES. (1 KBYTE) 


INPUT LINE AND STACK 
2000H-21FEH 
2000H 


PAGES 
10H-1FH 
(4 KBYTES) 


1000H 
3K CONTROL BASIC INTERPRETER 


0423H-OFFFH PAGES 
OOH-OFH 
(4 KBYTES) 


2-80 MONITOR | 
-0422H i 
0000H-0422 0000H 


Figure 2-1: MCB-216 ADDRESSING SCHEME 


SCC RAM 
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The text area of RAM is organized as follows; any stored 
program (by means of the SAVE command) is organized this 
same way: 


ue The first two bytes of the first page point to the 
first available byte after the program text 
relative to 21FFH. 


23 The next two bytes contain the line number of the 
first line in binary (low byte-high byte). This is 
followed by the text of the first line and a single 
ODH, or CR, at the end of that line. 


di Subseguent lines of text duplicate the form of this 
first line: 2-byte binary line number, ASCII text, 
CR-byte. 


4, The final line of the program is followed by 2 
additional bytes, xxH-FFH, where xx is an 
indeterminate value. 


5. Following these are two bytes which contain the 
value of the array element @(0) (low byte-high byte 
binary). The value stored in TXTUNF (location 
21FFH) will be the address of the next byte 
following this array element. (In the case of a 
stored program file, this address is stored in the 
first two bytes of the first page of the file, 
which is equivalent to the location TXTUNF.) 


The foregoing structure of a program is the same 
regardless of whether it is a stored file or the current 
program in the text area. 


The text of the current program is stored in memory one 
ASCII character per byte. Line numbers are low 
byte-high byte 16-bit binary and are stored with the 
text. The amount of memory space available for the 
Current program may be changed by means of the LOCK 
command (see Chapter 5). The number of bytes available 
to (by LOCK or by default), but left unused by, the 
current program may be obtained with the SIZE function 
(see Chapter 3). These unused bytes are used for 
storage of the two-byte, one-byte, and string arrays. 


For the current program file stored in the text area, 
subsequent values of the array @(I), where I=1,2,3,..., 
are stored in the text area following @(0) (two bytes 
per array element). If the array @(I) grows too large 
to fit in the text area, Control Basic will not allocate 
memory past the LOCKed top and will instead print 
"SORRY". Use the LOCK command to enlarge the text area 
in such a case. 
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Also,. note that for stored program files the first two 
bytes point to the first available memory location 
j . Thus for example, the two bytes 
5F-22 (low-high) stored at location 4300H (page 43H) 
mean that the first available ‘memory location following 
that file is at 4360H (225FH-21FFH+4300H). More 
information on arrays will be found in Chapter 3. 


I/O DRIVERS 


The I/O drivers for Control Basic are not moved into 
RAM. This was done to allow more space in the Single 
Card Computer RAM for user programs. The character 
output routine "OUTCHR" begins at location E98H and the 
character input routine "CHKINP" begins at location EEBH 
in the MCB-216 ROMs. Appendix A lists the two routines. 


INTERRUPTS 


Special provisions have been made in Control Basic for 
use with the Cromemco Single Card Computer. Among these 
is the ability to take advantage of the SCC's interrupt 
structure. The Single Card Computer has 8 potential 
sources of interrupt, which are listed in the table 
below, and which are executed by Mode 0 of the three 
types of 280 interrupts. Mode 0 interrupts execute one 
of the eight 280 ReSTart instructions, RST 00H through 
RST 38H. Since the addresses these instructions use are 
all part of the MCB-216 ROMs themselves and can thus not 
be changed by the user, Control Basic has been 
programmed with JP instructions at each RST to fixed 
locations in on-board user programmable ROM, summarized 
(in order of priority from highest to lowest) in the 
table below: 


Source of Interrupt Vector Address 


Non-maskable 

interrupt 10FOH 
Timer 1 timeout not available 
Timer 2 timeout 10F2H 


External int. reg. (INT) 10F4H 
Timer 3 timeout . lOF6H 
Rec'r. data available 10F8H 
Trans'r. buffer empty 10FAH 
Timer 4 timeout not available 
Timer 5 or PI7 10FEH 
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Note that two of the Restarts (and thus two of the eight 
interrupts) cannot be used because their addresses are 
required for other system functions. Address 0 (the 
location of a vector for RST 00H) is required for 
initial power-on and contains a Jump to the cold start 
of the Control Basic segment of MCB-216. Address 30H 
(and the instruction RST 30H) is used as a break-point 
trap for debugging with the 7-80 Monitor portion of 
MCB-216. 


Also note that the rest of the interrupt vectors jump to 
locations in page 10H which are separated by only 2 
bytes. It is up to the programmer to place Relative 
Jump instructions (JR) at these locations in ROM. The 
interrupt routines themselves must also be 
user-provided. 


The interrupt scheme outlined above was chosen to enable 
maximum use of the SCC-provided interrupts while placing 
minimum constraints on the amounts of ROM and RAM 
required. Note in particular that the top portion of 
page 10H was chosen for the interrupt vectors, leaving 
the bottom portion of that page still free for the 
AUTORUN command, if desired (see Chapter 4). Thus, for 
example, this routine: 


10 AUTORUN 
20 OUT(0) = %84 
30 RUN $11 


could be programmed into a portion of an Intel 
2716-compatible EPROM to later be loaded at 1000H (ROM 
socket 2), and would occupy approximately 30H bytes. 
This would leave room in the upper portion of page 10H 
(and, of course, within the same ROM) for the interrupt 
vectors described above. If the user does not intend to 
make use of the SCC Interrupts, then the program could 
have line 30 eliminated completely, and in its place the 
continuing text of the program which is to be AUTORUN. 
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Chapter 3 


ELEMENTS OF THE CONTROL BASIC LANGUAGE 


There are a number of special definitions used 
throughout this manual as well as some general rules of 
syntax which should be followed when entering and 
editing Control Basic programs. The definitions of 
important terms follow: 


Command Applies to Control Basic keywords 
which may be used in either direct 
commands or statements. 


Direct Command Commands which may be typed directly 
from the console in response to the 
Control Basic prompt. 


Statement A numbered line in a Control Basic 
program which is composed of one or 
several commands. 


Multiple-command 

Statement A numbered line in a Control Basic 
program which is composed of several 
commands (on the same line) 
separated by semi-colons. 


Function One of ten control structures 
intrinsic to Control Basic which may 
be used in expressions. (Note that 
commands may not be used in 
expressions.) 


Current Program The program in the text area. It 
may be entered or edited directly 
without first LOADing it. 


Text Area The area of memory reserved for 
* storage of the current program and 
the arrays. 


There are also a number of rules of syntax to be 
followed when entering and editing Control Basic 
programs. These are summarized below: 


Ls A Control Basic programs consists of one or more 


numbered statements. The statement number must be 
an integer between 1 and 32767, inclusive. 
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Multiple-command statements must use semi-colons 
(;) to separate the commands. There are three 
exceptions to this: GOTO, STOP, and RETURN cannot 
be followed by a semi-colon or other commands; they 
must be the last command on any given line. 


When the direct command "RUN" is issued, the 
statement with the lowest line number is executed 
first, followed by the one with the next lowest. 
line number, etc. The statements GOTO, RUN, STOP, 
GOSUB, and RETURN can alter this sequence, however, 
by causing control to branch to a specific line 
number (see Chapter 4). 


Execution of the commands within a multiple-command 
Statement is from left to right. The IF command is 
a special case in that if the condition tested is 
false, all commands to the right of that point will 
be skipped over and execution will continue with 
the next line. 


Spaces (blanks) may be used or omitted freely but 
for the following exceptions: constants, and 
command and function keywords may not contain 
embedded blanks. They may be abbreviated, however. 


Execution of a running program or listing of any 
type of output may be aborted by pressing the 
Control-C key (usually the two keys, CTRL and C, 
depressed simultaneously) on the console input 
device. 


Throughout this manual, portions of example 
programs which are printed in bold characters 
signify that those expressions are user-typed. 


ABBREVIATING COMMANDS 


Control Basic command and function keywords may be 
abbreviated if desired. Since the Interpreter -stores 
programs as the actual ASCII characters which make up 
the statements and this requires one byte per character 
(see Memory Allocation in Chapter 2), the abbreviated 
forms of commands greatly reduce their memory storage 
requirements. This is important if the program is to be 
stored in PROM for future use (see SAVE command). For 
example, the following command line: 


10 FOR I=1 TO 1000 STEP 2 ; PRINT I, ; NEXT I 
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would perform exactly the same function if abbreviated 
to the form: 


10 F.I=1T01000S.2;P.1,;NE.1 


This second line requires only about half the bytes for 
Storage as the first line. However, since this second 
line is not very legible, it is recommended that a 
programmer develop a program using the full-word 
commands, and only translate it to the abbreviated form 
just prior to programming it into PROM. 


The abbreviations are formed by truncating several of 
the trailing letters and replacing them with a period 
(.). For example, "P.", "PR.", "PRI.", and "PRIN." all 
stand for the word "PRINT". Command keywords cannot be 
truncated to a shorter length than the minimum 
abbreviations given below or Control Basic will print 
"WHAT?", Also note that the word "LET" in a LET 
statement may be omitted altogether. There are three 
columns in the table below: the first shows all Control 
Basic commands, the second shows only those which may be 
used in numbered statements (these may also be used as 
direct commands), and the third column shows the ten 
Control Basic functions. Table 3-1 lists the shortest 
keyword abbreviations. 


A command is part of a statement, which, in turn, is 
part of a program. However, when a command is typed at 
the console input device without a line number preceding 
it, it is a direct command. Direct commands are not 
stored by Control Basic but are executed immediately. 


The commands listed in the second column above may be 
used both as statements of stored programs and as direct 
commands. Those not listed in column two but listed in 
column one may be used as direct commands only. There 
are three groups of special cases: 


1. When used as direct commands, GOSUB, INPUT, and RUN 
cannot be followed by semi-colons and other 
commands. 


2. AUTORUN, NEXT, RETURN, REM, STEP, STOP, and TO are 
meaningless as direct commands. However, NEXT, 
STEP, and TO may be used within a direct FOR 
command all typed on one line as shown in this 
example: 


FOR I=0 TO 255 STEP 4; PRINT #%,,1,; NEXT I 
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3. When used in statements, GOTO, RETURN, and STOP 


must be the last command on the line (cannot be 
followed by semi-colons and other commands). 


Table 3-1: 


Direct Commands 


AUTORUN=AUTORUN 
C.=CALL 
F.=FOR 
G.=GOTO 
GOS.=GOSUB 
IF=IF 
IN.=INPUT 
=LET (implied) 
L.=LIST 
LO.=LOAD 
LOCK=LOCK 
NEW=NEW 
NE.=NEXT 
NU.=NULL 
O.sOUT 
P.=PRINT 
PUT=PUT 
Q.=QUIT 
R.=RDOS 
R.=RETURN 
REM=REM 
RUN=RUN 
S.=SAVE 
S.=STEP 
ST.=STOP 
TO=TO 
W.=WIDTH 


statements 


AUTORUN=AUTORUN 
C.=CALL 
F,=FOR 
G.=GOTO 
GOS.GOSUB 
IF=IF 
IN.=INPUT 
=LET (implied) 


NE.=NEXT 


O.sOUT 
P.=PRINT 
PUT=PUT 


R.=RETURN 
REM=REM 
RUN=RUN 


S.=STEP 
ST.=STOP 
TO=TO 


SHORTEST KEYWORD ABBREVIATIONS 


Functions 


A.=ABS 
AND=AND 
G.=GET 
IN=IN 
L.=LOC 
OR=0R 
R.=RND 
S.=SIZE 
SGN=SGN 
X.=XOR 


NUMBERS AND CONSTANTS 


In Control Basic all numbers are integers and must be 
less than 32767. Numbers are stored internally as 
16-bit two's complement (low byte-high byte). For 
programming and input/output, numbers are expressed in 
decimal, hexadecimal, or the ASCII character code. 
Hexadecimal numbers are denoted by the character "%" 
followed by up to 4 hexadecimal digits. For example, 
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$21 and 33 are both stored internally as 00100001 
00000000; %FFF4 and -12 are both stored internally as 
11110100 11111111. An ASCII code (7-bit) is denoted by 
a colon (:) followed by an ASCII character. For 
example, :A has the value 65 (or 41H) and is stored 
internally either as one byte, 01000001, or as two 
bytes, 01000001 00000000, depending on how it is used. 


VARIABLES 


There are 52 variables denoted by letters A through 2 
and A0 through 20. There is also an array @(I). The 
dimension of this array (i.e., the range of the index I) 
is set automatically to make use of all the memory space 
that is allocated but left unused by the text of the 
current program (i.e., 0 through SIZE/2; see SIZE 
function below). Each variable and each element of the 
array @(I) uses two bytes of memory stored low byte-high 
byte. 


The same memory space that is used to store the array 
@(I) can also be accessed, one byte at a time, through 
&(J) (or as strings through $(J) where J runs from 0 
through SIZE). That is, &(0) is the low byte of @(0), 
&(1) is the high byte of @(0), &(2) is the low byte of 
@(1), &(3) is the high byte of @(1), etc. Strings of up 
to 132 characters each can be stored in the same memory 
area and are accessed through $(J). The length N of the 
string $(J) is stored in &(J); the 7-bit ASCII 
characters of the string are stored in &(J+l) through 
&(J+N). Thus, $(J+N+1) can be another string. 


The multiple naming of the same memory space is 
intentional. This not only gives the programmer the 
freedom to allocate available memory between arrays and 
strings but also is very convenient for packing and 
unpacking data, and for string manipulation. 


FUNCTIONS 7 


Control Basic has 10 built-in functions, which are 
described below. The values returned by these functions 
will always be printed in decimal unless the user 
requests the answer in hex. This may be done by means 
of the format controls of the PRINT command (see Chapter 
4). In the following x and y denote variable or 
constant expressions. 
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RND (x) 


SIZE 


SGN(x) 


AND (x,y) 


OR (x,y) 


XOR (x,y) 


GET (x) 
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gives the absolute value of x. 


gives a random number between 1 and x 
(inclusive). 


gives the number of bytes allocated to, but 
left unused by the current program in the text 
area. ‘ 


returns a 1 if x is positive (or zero) or a ~l 
if x is negative. 


gives the 16-bit Boolean AND of x and y. 


gives the 16-bit Boolean inclusive OR of x and 
Ye 


gives the 16-bit Boolean exclusive OR of x and 
Ye Note that XOR(x,%FFFF) gives the one's 
complement of x, and -x gives the two's 
complement of x. (The result z of this 
operation must be in the range 
-32767 < z < 32767. Hence there is no one's 
complement of 7FFFH nor two's complement of 
8000H.) 


gives the 8-bit contents (1 byte) of memory 
location x. 


gives the l-byte value input from port x, 
where 0<=x<=255,. 


gives the absolute address of @(0), &(0), and 
$(0). 


ARITHMETIC AND COMPARE INSTRUCTIONS 


Control Basic allows the following operators in variable 
and constant expressions: 


/ 


* 


divide. 

multiply, or logical AND, 
subtract, or two's complement. 
add, or logical OR. 


greater than (compare). 
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< less than (compare). 


= equal to (compare). 


# not equal to (compare). 
>= greater than or equal to (compare). 
<= less than or equal to (compare). 


The operations +, -, *, and / result in a value 
between -32767 and 32767. Results outside this range 
will cause an error, and Control Basic will print 
"HOW?", All compare operators result in a 1 if true and 
a 0 if false (not true). 


In the Logical context, a 0 is False and any non-zero 
value is True. Thus, the add operator (+) is also used 
as logical OR, and the multiply operator (*) is also 
used as logical AND. For logical complement, one may 
use 0-. For example: 


A+B can mean A OR B. 
A*B can mean A AND B. 
0=A can mean NOT A. 


Note that if one wants the 16-bit-by-bit Boolean AND, 
one should use the function AND(A,B) instead of the 
logical AND just described. The same applies for 
Boolean OR and XOR. 


EXPRESSIONS 


Expressions are formed from numerical elements with 
arithmetic or compare operators between them. Numerical 
elements include constants (decimal, hex, or ASCII), 
variables, two-byte array elements @(I), one-byte array 
elements &(J), functions, and other expressions in 
parentheses. A "+" or a "=" sign can also be used as a 
unary operator. The hierarchy for evaluating 
expressions is as follows: functions are evaluated 
first, then parentheses (from the innermost), then 
multiplication and division, then addition and 
subtraction, then the compare operations. Cascaded * 
and / or cascaded + and - are evaluated from left to 
right. Compare operators cannot be cascaded. Several 
an. examples of both legal and illegal expressions 
ollow: 
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1+2*3 
2>1+3 


2*5/3 


A+-3 


A<X<B 


(A>B)*X + (A=B)*Y 


has the value 7, not 9, 


is false and has the value 0 
(> is used as a compare 
operator and 2 is not greater 
than 1+3). 


has the value 3, while 2/3*5 
is 0 due to truncation. 


is invalid, but A>-3 is 
allowed. 


is invalid; (A<X) * (X<B) is 
the proper way of testing 


. whether X is between A and B. 


is equal to X if A>B, is 
equal to Y if A=B, and is 
equal to 0 if A<B, 


(&(8)>=:A)*(&(8)<=:2)*2 + (&(8)>=:0) *(&(8)<=:9) 


A SAMPLE PROGRAM 


has a value of 2 if the 
character &(8) is a letter, a 
value of 1 if it is a digit, 
and a value of 0 otherwise. 


The following Control Basic program calculates the prime 
numbers between 1 and 10,000, and is provided to 
illustrate the power and ease of use of Control Basic. 


The "PRINT" statements in this program output the 
calculated prime numbers to a console or printer that is 
interfaced to the microprocessor system. 


10 PRINT 1, 
20 PRINT 2, 


30 FOR N=3 TO 10000 
40 FOR I=2 TO N/2 


50 IF N=(N/I)*I GOTO 80 


60 NEXT I 
70 PRINT N, 
80 NEXT N 
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The first two prime numbers are explicitly printed out 
by the first two statements of the program. Subsequent 
numbers, N, are checked for being prime by testing to 
see if they are exactly divisible by any integer, I. If 
any N is exactly divisible, it is discarded as not being 
a prime. 
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Chapter 4 
PROGRAM COMMANDS 
You can use the commands described in this chapter 
either interactively or in programs. The following list 
summarizes the commands by function. 
Assignment Commands 
LET Assigns a value to a variable 
PUT Stores a value in memory 
Control Commands 
IF Evaluates an expression and executes the 
rest of the commands on the statement if 
the expression is true 
_ GOTO Branches program control to the specified 
statement 
FOR Sets up the conditions for a loop; used 


with the NEXT command 
NEXT Increments a counter used in a loop; used 
with the FOR command 
Subroutines Commands 


GOSUB Branches program control to a subroutine 
written in the Control Basic language 


RETURN Returns program control from a subroutine 
written in the Control Basic language 


RUN Begins the execution of a program 
AUTORUN If it is the first command of a program 


stored on page 10H, AUTORUN has Control 
Basic execute the program whenever the 


system is booted. In all other 
circumstances, AUTORUN is treated as a 
Bd, comment. 
STOP Stops the execution of a program 
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CALL Branches program control to a machine 
code subroutine 


Input and Output Commands 


PRINT Send output to the console device 

INPUT Prompts the operator to type in 
information 

OUT Sends one byte of data to any I/O port 


Non-Executable Command 


REM Denotes a non-executable remark 


The rest of this chapter describes these commands in 
alphabetical order. 


AUTORUN COMMAND 


If the first line in a Basic program stored on page 10H 
begins with the command AUTORUN, then that program (on 
page 10H) will run automatically each time the computer 
is reset. 


The console serial port of the computer will 
automatically be set to 9600 baud. However, it is easy 


for the program to change the baud rate to another 
value. 


For example, if the following program is stored on page 
10H, 


10 AUTORUN 
20 OUT(0) = %84 
30 RUN $11 


the baud rate will be changed to 300 with one stop bit 
(see the SCC Input/Output Register Description in the 
SCC Instruction Manual), and then the program beginning 
on page 11H will be RUN. This process occurs every time 
the computer is hardware reset. 


It should be noted that during normal execution (i.e., 
in all cases except after a hardware reset or power-on) 
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the line beginning with the word "AUTORUN" is treated as 
a REMark. 


CALL COMMAND 


The CALL command is used to call a machine language 
subroutine. The word CALL is followed by an expression 
and then a list of arguments enclosed in parentheses. 
The value of the expression is the absolute address of 
the entry of the machine language subroutine. The 
argument list consists of none, or one or more 
arguments. Each argument is a variable, a one byte 
array element, or a two byte array element. Arguments 
are separated from one another by commas, and the entire 
list is enclosed in a pair of parentheses. 


The machine language subroutine can be stored in memory 
by a loader, an assembler, a monitor program, or by 
Control Basic -itself. To store a machine language 
subroutine with Control Basic, one may use the LET or 
PUT commands. The example in the description PUT 
command in this chapter illustrates this. We can now 
CALL this machine language routine to print the word 
"HOWDY" on the console with the statement: 


30 CALL %4300 


No arguments were passed in this CALL statement. 


Arguments are passed by addresses and these addresses 
are stored in the stack before Control Basic passes 
control to the machine language subroutine. The 
arguments are stored in a "Last In-First Out" or LIFO 
format; thus, the last argument on the statement line 
will be the first one POPed off the stack. The number 
of arguments is passed in the C register. The 
subroutine must POP the stack (C) times even if it does 
not need the arguments. Other than this arrangement of 
the stack, the subroutine can change all registers 
without any limitation. When the subroutine is 
finished, it uses a RET (280 instruction) to POP the 
stack once more, which also returns control to Control 
Basic. Another example illustrating argument passing 
is: 


10 CALL $2400 (A, &(3*B+1), @(3)) 
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In this example the subroutine at memory location 2000H 
is called and passed the three arguments, A, &(3*B+l), 
and @(3). Upon entrance to the machine routine, the C 
register contains the number 3. The stack pointer 
points to the address of @(3), which is followed by the 
address of &(3*B+l), the address of A, and finally the 
return address. 


FOR COMMAND 


The FOR and NEXT commands are used to set up loops in 
Control Basic. The FOR statement consists of the word 
FOR followed by a variable or a double byte array 
element, an equal sign, an expression, the word TO, 
another expression, and optionally the word STEP and a 
third expression. The variable or the two byte array 
element is called the control variable of the loop. It 
is set to the value of the first expression before 
entering the loop. The second expression is the limit 
of the control variable. It is evaluated and stored 
internally at entry. The third expression is the step 
size, and it is also evaluated and stored at entry. It z 
can be positive, negative, or zero. If the step size is = ~~ ; 
not specified, it is assumed to be +1. After the step 
size is stored, execution of Control Basic continues 
with the next statement or the next command of a 
multiple-command statement. 


The following are several unusual features of Control 
Basic FOR-NEXT loops which are worth mentioning. 
Numbers 4 through 7 below are not recommended if the 
user is attempting to write clean, easily debugged code. 


T The loop will be executed at least once no matter 
what the initial value, step size, and the limit of 
the control variable are. 


2. If the step size is 0, the loop will never end 
unless the control variable is altered inside the 
loop. 


3. After the loop is finished, the control variable 
will have the final updated value, which is outside 
the limit. 


4, Since Control Basic is interpreted rather than 
compiled, it is perfectly acceptable to put the 
NEXT statement physically before the FOR statement 
as long as there are GOTOs to make Control Basic 
"see" the FOR before the NEXT. 
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It is also acceptable to have unequal numbers of 
FORs and NEXTs, as long as there are IFs and GOTCs 
so that Control Basic will not "see" a NEXT without 
first encountering a FOR with the same control 
variable, 


It is acceptable to have a GOTO out of the loop and 
later GOTO back into the loop. It is also 
acceptable to have a GOTO out of the loop and never 
come back into the loop. In the latter case the 
loop remains "active"; it takes some stack space 
but is harmless otherwise. 


When a new FOR command having a control variable 
that is the same as an old but still active FOR 
loop is encountered, the old loop is purged. 


FOR-NEXT loops can be nested as long as each level 
uses a different control variable. The depth is 
limited only by stack space. 


If a NEXT command for the outer loop is encountered 
inside the inner loop when using nested FOR-NEXT 
loops, the inner loop is purged automatically. 


Note that the above apply to Cromemco Control Basic but 
do not necessarily apply to other Basic-like languages. 
For example the following program does not work on many 
of them: 


10 REM TRY THIS WITH BOTH A>0 AND AO 
15 INPUT A 

20 FOR J=1 TO 3 
30 IF A<0 GOTO 50 
40 NEXT J 

50 PRINT J 

60 FOR I=1 TO 3 
70 FOR J=1 TO 3. 
80 NEXT J 

90 NEXT I 
160 GOTO 15 


Although this program works with Control Basic, it's a 
bit obscure. 
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GOSUB COMMAND 


The GOSUB statement is similar to the GOTO statement 
except that (a) the current statement number and 
position within the statement are stored internally 
(this allows control to be transferred back by RETURN); 
and (b) other commands separated by semi-colons can 
follow it in the statement. The following are legal 
GOSUB statements: 


10 GOSUB 120 

20 GOSUB A*10+B 

30 GOSUB 120; IF C<=0 GOTO 10 

40 REM IF C>0 THE GOTO ABOVE WILL NOT BE EXECUTED 


Statement 10 will cause the execution to jump to 
statement 120; when a RETURN command is encountered, 
control will transfer back to the next following 
statement or command of a multiple-command statement. 
Statement 20 will cause the execution to jump to a 
Variable statement number as computed from the value of 

the expression A*10+B. 


GOTO COMMAND 


The GOTO command consists of the word GOTO followed by 
an expression. An example is: 


10 GOTO 120 


This statement causes the program being executed to jump 
to statement 120. Note that a GOTO command cannot be 
followed by a semi-colon and other commands. It must 
end in a carriage return. The statement 


10 GOTO A*10+B 


causes the program to jump to a variable statement 
number as computed from the value of the expression. 


Indiscriminate use of GOTO statements makes a program 
difficult to follow and should be avoided. On the other 
hand combining short and logically related commands in a 
Single statement can make a program easier to understand 
and is highly recommended. Consider the following 
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example of a game; this program uses many GOTOs but does 
not take advantage of multiple-command statements. 


PRINT "NUMBERS, NUMBERS, WHO CAN GUESS MY NUMBERS?" 
LET X=RND(100) : 
LET N=0 

PRINT "I HAVE A NUMBER BETWEEN 1 AND 100" 
INPUT "YOUR GUESS" G 

LET N=N+1 

IF N>20 GOTO 130 

IF G>X GOTO 160 

IF G<X GOTO 180 

PRINT "YOU GOT IT IN", N, " GUESSES" 
PRINT "LET'S PLAY AGAIN" 


GOTO 20 

IF G=X GOTO 100 

PRINT "NO, IT WAS", X 

GOTO 110 

PRINT "TRY A SMALLER NUMBER" 
GOTO 50 

PRINT "TRY A BIGGER NUMBER" 
GOTO 50 


This is a working program, but it could have been much 
cleaner and easier to understand with half of the GOTO 
statements deleted and with a few of the other 
statements combined: 


10 
20 
40 
50 
70 
80 
90 
100 
110 


PRINT "NUMBERS, NUMBERS, WHO CAN GUESS MY NUMBERS?" 
LET X=RND(100), N=00 

PRINT "I HAVE A NUMBER BETWEEN 1 AND 100" 

INPUT "YOUR GUESS" G; LET N=N+1 

IF (N>20)*(G#X) PRINT "NO, IT WAS", X; GOTO 110 

IF G>X PRINT "TRY A SMALLER NUMBER"; GOTO 50 

IF G<X PRINT "TRY A BIGGER NUMBER"; GOTO 50 

PRINT "YOU GOT IT IN", N, " GUESSES" 

PRINT "LET'S PLAY AGAIN"; GOTO 20 ` 


IF COMMAND 


The IF command consists of the word IF followed by an 
expression, and then followed by one or more other 
commands. An example is: 


10 IF A<B LET X=3; PRINT 'A IS LESS THAN B! 
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The command above tests the value of the expression A<B. 
If it is true (i.e., if it is not zero), the commands in 
the rest of the line of this statement will be executed. 
If the value of the expression is false (i.e., if it is 
zero), the rest of this statement will be skipped over 
and execution will continue with the next statement. 
Note that the word "THEN" is not used. 


INPUT COMMAND 


The INPUT command is used to prompt the operator to type 
in an expression or a string to be saved by the program 
in a variable, an array element, or a String array. The 
word INPUT is followed by a list of items (any of the 
above) separated by commas. The items may also be 
strings (quoted in single or double quotes) or tab 
controls for the terminal. These items look and behave 
exactly like those used in a PRINT statement. For 
example, the underline or back-arrow character (ASCII 
5FH) may be used to specify INPUT at a particular column 
on the console terminal. Following are two examples 
which will illustrate some of the features of INPUT 
Statements. The first example shows tab control and the 
second shows how to input character strings: 


10 INPUT "INPUT 'A' HERE" A, „30, "AND 'B' THERE" 
20 PRINT #0, A, „30, B 


OK 

>RUN 

INPUT 'A' HERE:123 
AND 'B' THERE: 456 
123 456 


Note that the quoted letters 'A' and 'B' are considered 
part of the strings shown because they are in single 
quotes and the strings are in double quotes. This could 
be reversed (letters in doubles; strings in singles); 
however, if both the strings and the letters are quoted 
with the same symbol, Control Basic will not understand 
and will print "WHAT?" (see Chapter 6). 
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10 INPUT "GIVE ME A STRING: ", $(23) 
20 PRINT "YOU TYPED '", $(23), "'" 
30 INPUT X, @(11) 

40 PRINT X, @(11) 


OK 
>RUN 
GIVE ME A STRING: THIS IS A STRING. 
YOU TYPED 'THIS IS A STRING,' 
X:3%5+5%6 
@(11):X+1 

45 46 


In this example the operator answered the first input 
inquiry by typing "THIS IS A STRING.", answered the 
second one by "3*5+5*6", and answered the third one by 
"X+1". Note that in statement 30 where a variable and 
an array element are the input items, the names of the 
variables, "X" and "@(11)", are also printed 
automatically by Control Basic as prompts. If the 
operator makes an error in response to the prompt, 
Control Basic will also retry that part of the INPUT and 
reprint the prompt. When the input item is a string 
array as it is in statement 10, there is no automatic 
prompt and whatever the operator types is always 
accepted. We now rerun the same program giving several 
unusual inputs to see their effect: 


OK 
>RUN 
GIVE ME A STRING: %?#1* 
YOU TYPED '23?7#1*!' 
X:3?7#!* 
WHAT? 
X:2/0 
HOW? 
X:@(8000) 
SORRY 
X:2+1 
@(11):(3+4)*5) 
WHAT? 
@(11):(3+4) *5 

3 35 


Programmers not wishing to take advantage of the 
automatic variable name prompt can supply their own ina 
pair of single or double quotes preceding the variable 
Or array name without a comma between them. The next 
example will illustrate: 
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10 INPUT "PLEASE GIVE ME YOUR ","WEIGHT (IN LBS)" X 
20 LET Y=(10*X+11)/22 
30 PRINT 'THAT IS ABOUT ', #0, Y, " KILOGRAMS" 


OK 

>RUN 

PLEASE GIVE ME YOUR WEIGHT (IN LBS):HUNDRED AND FORTY 
WHAT? 

WEIGHT (IN LBS) :140 

THAT IS ABOUT 64 KILOGRAMS 


Note that only the prompt "WEIGHT (IN LBS)" is repeated; 
the string "PLEASE GIVE ME YOUR " is separated from the 
input item by a comma and is thus not repeated following 
an incorrect response. The expression in statement 20 
handles the unit conversion and rounding in integer 
arithmetic. 


LET COMMAND 


The LET command can be used to evaluate expressions and 
store the values in variables, the double byte array 
@(I), and the single byte array &(J). More than one 
variable or array element may be set by a single LET 
command. Some examples of the use of LET are: 


10 LET A=234-5*6, @(A-3)=4*A, &(25)=18 
20 LET U0O=(A<B)+AND(ABS(X-1) ,3FF)+:* 
30 LET A0=B0=0 

40 LET @(0)=-1, &(0)=0 

50 A=3, B=2*A 


Note that statement 30 will not set both AO and BO to 
zero. The second equal sign (=) in this command is a 
compare operator; thus only AO will be altered according 
to whether BO is equal or is not equal to 0. 


Note also that after statement 40 is executed, the value 
of @(0) will not be -1. This is because &(2*I) is the 
same as the low order byte of @(I), and &(2*I+1) is the 
same as the high order byte of @(I). Thus &(1) will be 
255 and @(0) will be -256. 
The word "LET" is optional. 


Thus statement 50 sets A to 3 and B to 6. 
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NEXT COMMAND 


The NEXT command consists of the word NEXT followed by 
the control variable of the loop. The control variable 
is updated by the amount of the step size and is then 
compared with the limit of the control variable. If it 
is within the limit (inclusive), Control Basic will loop 
back to the command that follows the FOR command and 
repeat the loop. If the updated control variable is 
outside the limit, the internal storage for this loop is 
cleared and Control Basic proceeds to execute the 
statement which follows the NEXT statement, The 
following example will illustrate the use of FOR-NEXT 
loops with varying STEP sizes: 


10 PRINT "TEST", 

20 FOR T=1 TO 3 

30 PRINT T, 

40 NEXT T 

50 PRINT; PRINT 'COUNT DOWN', 

60 FOR C=100 TO 98 STEP -1 

70 PRINT C, 

80 NEXT C 

90 PRINT ' seels PRINT 'STEP', 
100 FOR @(3)-10 TO -15 STEP -5 
110 PRINT @(3), 
120 NEXT @(3) 


OK 

>RUN 

TEST 1 2 3 

COUNT DOWN 100 99 98 “ee 

STEP 10 5 0 -5 -10 -15 


OUT COMMAND 
The OUT command is used to output a byte of data to any 
I/O port. The format of the command is 


OUT(x) = y 


where x is the port number and is an expression with a 
value between 0 and 255 (0-FFH), and y is an expression 
also with a value between 0 and 255, which is the actual 
byte of data to be output. 


The counterpart of OUT is IN, but IN is a function 
rather than a command. The input function IN(x) is used 
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to read data or status information in from an I/O port. 
The port number x is again an expression with a value 
between 0 and 255 (0-FFH). This function, like any 
other function, cannot stand for a command by itself. 
Thus in the following example illustrating the use of 
the OUT command and the IN function, statement 10 is 
invalid while the other statements are legal. 


10 IN(3) 

20 PRINT #%, IN(3),, SIZE,, LOC 
30 LET A=AND(IN(B+1) ,340) 

40 OUT(B+1)=A 


PRINT COMMAND 


The PRINT command is used to print all types of output 
on the console device, including strings, constants in 
both decimal and hexadecimal, and the values of 
variables, arrays, and expressions. Its format is the 
word "PRINT" followed by a list of items separated by 
commas. The items in the list may include any of the 
following: 


l. Constants (decimal, hexadecimal, ASCII). 

Bie Variables (A through Z and AO through 20). 

3. One-byte, two-byte, and string array elements. 

4. Expressions formed from any of the above, 
arithmetic and compare operators, and the legal 


functions. 


Ds Strings surrounded by matched pairs of single or 
double quotes. 


6. Format control characters described later in this 
section. 


A sample PRINT command follows which shows several of 
these items. Note the use of both quoted and unquoted 
Strings, a variable, and a constant expression: 
10 PRINT 'THIS ', "OR THAT ", S(A+3), X, 2*3-5/4 
OK 


>RUN 
THIS OR THAT PLUS -9 5 
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The string array S$(A+3) has been set elsewhere to the 
string "PLUS", and the variable X has been previously 
set equal to -9. 


The items in the print list can also be format controls. 
The allowable characters to use as format controls are 
summarized briefly below, followed by a more detailed 
description and some illustrations. 


# specify leading spaces or hexadecimal 

% specify number of hexadigits 

r (preceding) specify additional leading spaces 
' (succeeding) specify no CR-LF at end of item 
es tab to a specific column 


The character "#" followed by a number n means print 
leading spaces (if necessary) to make numbers at least n 
spaces wide. Spaces can also be added by means of extra 
commas between itens. The format control "#%%" means 
print numbers in 4 hexadigits, whereas "#%" means print 
the low order byte of a number only, in 2 hexadigits. A 
format control stays effective until changed by another 
format control or until the PRINT command ends. The 
default format if no control is specified is #6. The 
following example will illustrate these points: 


10 PRINT 1, -2, 345, -6789 

20 PRINT #3, 1, -2, 345, -6789 

30 PRINT #%%, 1, -2, 345, -6789 

40 PRINT #%%, der “2 345,, -6789 
50 PRINT #%, 1,, -2,, 345,, -6789 


OK 
>RUN 
1 -2 345 -6789 
1 -2345-6789 
OOO1FFFEO159ES7B 
0001 FFFE 0159 E57B 
01 FE 59 7B 


The underline or back-arrow character (ASCII 5FH) is 
used as a format control to indicate tabbing to a 
particular column on the console device. It should be 
followed by a number n which is the column number; this 
will cause the cursor or print head to move to that 
position. The print positions are numbered from left to 
right beginning with 1. If n is 1, the cursor (print 
head) will move to the left margin without a line feed. 
The cursor will move to position n independent of its 
present position, i.e, it may move either left or right. 
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The PRINT command generates a carriage return and line 
feed at the end of the last item in the command. 
However, if there is a comma at the very end of the 
line, the CR-LF is not generated. The following example 
will illustrate both the tab feature just discussed and 
the suppressed CR-LF: 


10 PRINT 'THIS', 

20 PRINT ' IS ', 

30 PRINT 'PRINTED ON ONE LINE' 

40 PRINT 'WE HAVE', „10, 'O = O', ,10, '- / /' 


OK 

RUN - 

THIS IS PRINTED ON ONE LINE 
WE HAVE -~ = 0 


Note that statement 40 of this example is somewhat 
special purpose in that it will work correctly only with 
a console device that will print non-destructive spaces 
such as a teletype. ~ 


PUT COMMAND 


The PUT command can be used to evaluate expressions and 
store the values (which must be between 0 and 255) into 
absolute memory locations. The form of PUT is 


PUT (x) = a,DyCreee 


where a, b, and c are expressions whose values are 
stored in consecutive memory locations beginning with 
the address which is the value of the expression x. 
Either single or consecutive memory locations may be 
altered with the PUT command. An example of the use of 
PUT is 


10 PUT(%24300)=311,AND(X+3,%FF), (X+3) /%100,%CD,%A4,%EC,%C9 
20 PUT(X+3) = :H, :0, :W, :D, :Y, %D 


where part of a machine language subroutine (LD HL,X+3; 
CALL ECA4H; RET) is PUT into memory -locations %4300 
through %4306, and the string of ASCII code for "HOWDY 
RETURN" is put into locations X+3 through X+8. A better 
way of unpacking the low and high bytes of X+3 in 
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statement 10 is to initialize the two byte array @(I) to 
the address, X+3, and then use the one byte array, &(I) 
or &(I+l) as appropriate, to specify low or high byte: 


5 LET @(0)=X+3 
10 PUT(%4300)=%11, &(0), &(1), CD, %A4, %EC, %C9 


The counterpart of PUT is GET , but GET is a function as 
Opposed to a command. GET(x) can be used in any 
expression and returns the contents of absolute memory 
location x. 


REM COMMAND 


The word "REM" may be used in a Control Basic statement 
to denote a REMark line. This "command" is 
non-executakle and everything ‘following the REM on that 
statement line (preceding the CR) is ignored by the 
Interpreter. REM may also appear on the same line with 
other commands in a multiple-command statement; 
everything preceding the REM command will be executec 
but the rest of the line is again ignored. There are 
several commands which must be the last command on a 
line; these cannot be followed by even a REM command. 
They are: GOTO, RETURN, and STOP. (Also note that the 
word "REMARK" may be used instead of "REM" if you wish 
since the letters "ARK" are ignored anyway.) The 
following example illustrates the use of REM: 


10 REM 

20 REM *** Title of Program *** 

30 REM 

40 PRINT "RECIPE": REM PRINT "COOKBOOK" 


In this example statements 10, 20, and 30 will be 
ignored during execution of the program; statement 40 
will cause Control Basic to print the word "RECIPE" but 
not the word "COOKBOOK". 


RETURN COMMAND 


A RETURN command must be the last command in a statement 
and followed by a carriage return (i.e., it cannot be 
followed by a semi~colon and other commands). When a 
RETURN command is encountered, it will cause the 
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N 


execution to jump back to the command following the most 
recent GOSUB command. 


An active FOR-NEXT loop in the calling program is no 
longer active in the subroutine but will be restored to 
be active after the subroutine RETURNs to the calling 
program. Any active FOR-NEXT loop in the subroutine 
itself will be purged automatically when RETURN is 
encountered. Variables are always global; therefore 
Subroutines can have no local variables. 


GOSUBS can be nested. The depth of nesting is limited 
only by the stack space and can be no more than 24 
levels deep. GOSUBs are also recursive with the 
limitation that all variables and arrays are global. 
For example, consider the function F(N) of positive 
integers N such that: 


F(l)=1 
F(N)=N*F(N-1) for N>1 


One can write the following test program to illustrate 
the function F(N) using recursive GCSUBs (underlined 
words are user-typed): 


10 INPUT 'GIVE ME A SMALL POSITIVE INTEGER' N 
20 GOSUB 100 

30 PRINT 'F(', #1,N, ')=', F 

40 STOP 
100 IF N=1 LET F=1; RETURN 
110 N=N-1; GOSUB 100; N=N+1 
120 F=N*F; RETURN 


OK 

>RUN 

GIVE ME A SMALL POSITIVE INTEGER:6 
F(6)=720 


Note that F(N) as defined above is simply the factorial 
function. 


RUN COMMAND 


The RUN command consists of the word RUN optionally 
followed by a page number. The RUN command is a 
Subroutine call on a grand scale. If a page number is 
given, it calls the Control Basic program SAVEd on that 
page. If a page number is not given, it calls the 
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Control Basic program in the active text area. The RUN 
and GOSUB commands differ in that a GOSUB command calls 
a subroutine that is within the same program as the 
calling routine, whereas a RUN command calls a 
Subprogram which is in a separate file. When Control 
Basic encounters a STOP command in the subprogram, 
control returns to the statement following the RUN 
command. 


A subprogram in a separate file has the advantage that 
it has its own set of line numbers. Since RUN may be 
used in a Statement, the following is a legal program: 


10 RUN 40 
20 PRINT "END OF FACTORIAL" 


This would run the program given above in the previous 
section, assuming it had been SAVEd on page 40. Thus, 
it is easy to see how different programs could share the 
same set of debugged "library" subprograns. 


The RUN command can be nested and is recursive. As it 
is for GOSUB, the depth of nesting is limited by stack 
space, and one should bear in mind that all variables 
and arrays are global. 


STOP COMMAND 


The STOP command consists of the word STOP followed by a 
carriage return. It cannot be followed by a semi-colon 
and other commands on the same line. The STOP command 
goes with the RUN command in the same way that RETURN 
goes with GOSUB. The principle difference between the 
two sets of commands is that RUN-STOP may be used to 
call a subprogram in a separate file with its own set of 
line numbers. 


STOP returns control from a subprogram to the calling 
program (which will continue RUNning); however, if the 
program which is RUNning when STOP is encountered is the 
current program in the text area, execution is 
terminated and the prompt is given. If the end of file 
is reached in a subprogram before a STOP statement is 
encountered, Control Basic will also return to direct 
mode instead of to the calling program. An example will 
illustrate the way STOP passes control from subprogram 
to calling program. The following is a program which 
has been previously stored (SAVEd) at page 32: 
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10 PRINT "THIS IS A PROGRAM ON PAGE 32" 
20 RUN 33 

30 PRINT "END OF PROGRAM ON PAGE 32" 

40 STOP 


and the next listing is a program which has been 
previously stored at page 33: 


10 PRINT 'BUT THIS PROGRAM IS ON PAGE 33' 
20 STOP 


RUNning the program on page 32 will produce the 
following result: 


OK 

>RUN 32 

THIS IS A PROGRAM ON PAGE 32 
BUT THIS PROGRAM IS ON PAGE 33 
END OF PROGRAM ON PAGE 32 


Note that this will have no effect on the current 
program in the text area if there is one. This means 
that one does not need to LOAD a program to RUN it, a 
most useful feature. 
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Chapter 5 
DIRECT COMMANDS 
You can use the commands described in this chapter only 


in the interactive mode. They cannot be used within 


programs. The following list summarizes the commands by 
function. 


Storage and File Commands 


LOCK Specifies the upper boundary of the text 
area 

SAVE Saves the current program in memory 

LOAD Copies programs stored in memory to the 


text area 


Console Terminal Commands 
WIDTH Sets the margins for the console device 


NULL Sets the number of nulls sent to the 
console device following each RETURN 


Monitor-Entrance Commands 
QUIT Transfers control to the Z~80 Monitor 


RDOS Transfers control to the RDOS program 


The rest of this chapter describes these commands in 
alphabetical order. 
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LIST COMMAND 


The LIST -command is used to print some or all of the 
statements of the current program in the text area in 
numerical order on the console device. It is used 
frequently in entering, editing, and verifying Control 
Basic programs. There are several legal forms of LIST; 
the simplest is to type "LIST RETURN", which will then 
list the entire current program from beginning to end. 
A more complete format is 


LIST x,n 


where x is the beginning line number (a constant) andn 
is the number of lines to be LISTed. Both these values 
are optional, and the comma (,) should be omitted if,n 
is. The following examples will illustrate these points 
further: 


LIST 120 prints all statements beginning with 
line number 120, 


LIST 120,3 prints at most (i.e., fewer will be 
printed if fewer are present) 3 
statements beginning with line 120. 


LIST ,20 prints at most 20 statements 
starting with the beginning line of 
the current program. 


L.90,1 prints only statement number 90, if 
there is one. Note the abbreviated 
form of LIST (Chapter 4). 


LOAD COMMAND 


Programs which have been saved with the SAVE command may 
be copied back to the text area for editing by means of 
the LOAD command. This process performs an automatic 
"NEW"; in other words the current program in the text 
area is deleted. An example use of LOAD is 


LOAD %43 


where the file stored on page 43H (or at 4300H in 
memory) is copied into the text area. If no program is 
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stored at page 43H, Control Basic prints "SORRY". Also, 
since the length of any given stored program is 
contained in the first two bytes of the first page, 
Control Basic knows immediately if it will fit into the 
text area. If it will not fit, "SORRY" is printed and 
no LOADing takes place. The size of the text area may 
be increased (to allow for LOADing very long programs) 
by means of the LOCK command. 


LOCK COMMAND 


The LOCK command is used to change the boundary between 
the current program text area and the area reserved for 
SAVEing program files. A sample LOCK command is 


LOCK 40 


which will set the boundary between the text area and 
the SAVE area at 2800H (page 40D=page 28H). Thus pages 
34 through 39 become allocated to the current program 
text and pages 40 through 255 can be used to SAVE files. 
The LOCKed value is set when Control Basic is cold 
started to 36 (24H). If these values are lowered by 
means of the LOCK command after a program has been 
entered into the text area, Control Basic will print 
"SORRY" if the page number specified would include part 
of that current program. For example, suppose the 
current program resides in pages 22H through 25H. The 
command "LOCK %24" will print "SORRY" but the command 
"LOCK $26" will be accepted and executed. 


IF the LOCK command is used to increase the size of the 
current program area, it is up to the user to make sure 
that this does not endanger any previously SAVEd files. 
The allowable range of the LOCK command is 35-255 
(23H-FFH). 


NEW COMMAND 


The NEW command is used to delete the current program 
stored in the text area, It is a direct command which 
is executed by typing "NEW RETURN" from the console 
device. NEW is executed automatically upon entering 
Control Basic initially and upon issuing a LOAD command 
(described in this chapter. 


65 


MCB-216 Software 


5. 


Direct Commands 


NULL COMMAND 


The NULL command is used to set the number of nulls 
transmitted by Control Basic after any carriage 
return-line feed sequence. This allows the user to set 
carriage return time for hard copy devices such as 
teletypes. A sample NULL command is 


NULL 3 


which causes Control Basic to transmit 3 null characters 
after every CR-LF. The default value for NULL upon 
entering Control Basic (either model) is 0. The 
allowable, usable range of the value is 0-128. 


QUIT COMMAND 


The QUIT command is used to transfer control to the warm 
start address of the z-80 Monitor. Typing "B RETURN" 
then will pass control from the Monitor back to the 
Control Basic warm start. The stored Control Basic 
program will never be cleared because the Monitor always 


enters at the MCB-216 "stored program warm start." 


RDOS COMMAND 


The RDOS command is used to transfer control to the RDOS 
program. The command is provided for users of this 
version of Control Basic who also have a 4FDC or 16FDC 
Disk Controller board in their system and one or more 
disk drives. Typing "RDOS" as a direct command causes 
control to pass from Control Basic to the warm start of 
the resident ROM monitor on the 4FDC or 16FDC known as 
RDOS. The disk read or write commands of RDOS may then 
be used to load programs into or save them from memory, 
respéctively. See the RDOS Manual for more information. 


To return to Control Basic after using RDOS, type "G452 
RETURN" to enter at the "stored program warm start". 
(See Entering and Exiting Control Basic in Chapter 2.) 
You may also return via one of the other MCB-216 
restarts listed in that section. 
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SAVE COMMAND 


The SAVE command is used to save the current program in 
a particular page of memory. The page number given 
should be above the LOCKed text area and generally 
coincident only with read/write memory space. A sample 
SAVE command is 


SAVE %43 


where the current program will be saved in memory 
beginning at 4300H. When the SAVE command is finished, 
Control Basic will print a message indicating how many 
pages of memory were used. For example the message 


SAVED ON PAGE %43 TO %45 


means that the current program now occupies all of pages 
43H and 44H, and all or part of page 45H. If the copy 
does not compare with the original (for example, if 
there is no RAM at the specified page), Control Basic 
will print "SORRY". "SORRY" will also be printed if one 
attempts to SAVE a program in pages 0 through one less 
than the LOCKed number (i.e., 35 for MCB-216, as it is 
initially configured). This region is reserved by 
Control Basic for variables, stack, and the current 
text. 


The SAVE command may also be used in conjunction with a 
32K Bytesaver to program Intel 2716-compatible PROMs. 
Remember to turn on the program power of the Bytesaver 
board before issuing the SAVE command. Used in this 
way, SAVE will take several minutes to execute due to 
the wait states required by the 2716's while 
programming. 


WIDTH COMMAND 
The WIDTH command may be used to compensate for the 
non-standardization of console terminals by allowing the 


user to set both a soft and hard screen width or margin. 
A sample WIDTH command is 


WIDTH 72,80 
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which sets the soft margin at column 72 and the hard 
margin at column 80. When the soft.margin has been 
exceeded during output, Control Basic will generate a 
carriage return-line feed sequence after any space 
character (and thus, at the ends of words). When the 
hard margin has been exceeded, it generates an immediate 
CR-LF, The values above are good choices for an 
80-column CRT. The default WIDTH for Control Basic is 
72,72. The allowable usable range for the first number 
is 0-129 and for the second is 0-255. 


Since WIDTH is a direct command, it cannot be set by a 
statement in a program. However, it is sometimes useful 
to be able to change the screen width in a particular 
program. One method of doing this is to use the PUT 
command to alter the RAM locations where the soft and 
hard margins are stored. An example of this (for 
CB-308) is 


10 PUT(%3E2) = 72,80 


which has the same effect as the WIDTE example above. A 


similar command may be used to set the margins for 
MCB-216: 


10 PUT($21E3) = 72,80 
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ERROR REPORTING 


Only three error messages are given by Control Basic. 
These are printed out on the console as soon as they are 
detected. The statement containing the error is printed 
below this with a question mark inserted at the point 
where the error is detected. If the error occurs in a 
RUNning program, execution is stopped. Since Control 
Basic is a pure interpreter, though, the presence of an 
error in a statement may not be detected until that line 
is actually encountered during execution. Error 
messages are also given for illegal direct commands as 
well as illegal statements in programs. 


WHAT? ERRCR MESSAGE 


The error message "WHAT?" means that Control Basic does 
not understand you. It can occur for a wide variety of 
reasons, several of which are listed below as examples. 
Many other examples illustrating the cause of error 
messages will be found throughout this manual. 


WHAT? 

210 P?TINT "THIS" where "PRINT" is mistyped 
WHAT? 

260 LET C=(3+4?,X=4 where a ")" is missing 


HOW? ERROR MESSAGE 


The error message "HOW?" means that Control Basic 
understands you but does not know how to do it. 
Examples illustrating the cause of the "HOW?" message 
are: 


HOW? 

310 LET A=B*C?+2 where B*C is larger than 32767 
HOW? 

380 GOTO 412? where statement 412 doesn't 


exist 
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SORRY ERROR MESSAGE 


The error message "SORRY" means that Control Basic 
understands you and knows how to do it but it is still 
unable to do it because of memory or other physical 
limitations. Examples of the cause of the "SORRY" 
message follow: 


SORRY 
400 LET A=@(9000)? where @(9000) is not within the 
current LOCKed text area 


> 
SORRY where page 3 is illegal to use 
for SAVEing a program 


In general misusing, or using illegal, commands will 
cause Control Basic to print "SORRY". The message will 
also be given by programs which contain direct commands 
used as statements. 
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Chapter 7 


BASICS OF THE PROGRAM 


The Z80 Monitor makes it possible to control Cromemco 
Z-80 based computers from a terminal keyboard. It 
includes executive commands to examine and change 
memory, make a binary or an ASCII dump of memory, move 
and compare blocks of memory, output a byte of data to 
any port, read, write, and punch nulls on binary paper 
tapes, program Intel 2716-compatible EPROMs using the 
Cromemco 32K BYTESAVER, and initialize and control both 
serial ports on the Cromemco TUART. 


Transfer of control to a program in memory can be 
commanded from the keyboard with up to five breakpoints 
set and with the initial contents of the 2-80 registers 
specified. When a breakpoint is encountered during 
execution, control is transferred back to the monitor 
and the contents of all 22 2-80 registers are stored. 
These register values can be examined and changed before 
execution of the program is resumed. 


ENTERING THE MONITOR 


Z-80 Monitor, entering You enter the Monitor from 
Control Basic by issuing the QUIT command. Once you 
issue the command, depress RETURN two to four times if 
the system has a Cromemco TUART I/O board. This will 
set the UART on the serial interface card to the baud 
rate of the terminal being used. 


When used with a serial interface card with baud rate 
fixed to that of the terminal, simply depress RETURN 
twice. The monitor will then respond: 


Cromemco ZM1.4 


followed by a prompt ":". The monitor is then ready to 
accept commands from the keyboard. 


The 280 Monitor has three entry points. A warm-start 
entry at 3BH selects bank 0 on Cromemco memory boards 
and UART A on the Cromemco TUART. It saves the contents 
of the 280 registers I, N (IFF), S (SP), X (IX), Y )IY), 
A', Bt, Cf, D', E', F', and H! (HL') in the 
user-register area which is part of the system stack. 
(If the 280 stack pointer is pointing to RAM, then all 
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registers except A and P (PC) will be saved.) The 
contents of these registers are restored when the 
monitor is exited by means of the GO command. The 
warm-start entry point is provided so that the monitor 
can be re-entered without affecting the memory banks or 
the UART, 


The second entry point is used by the breakpoint 
Facility. Entry here saves the contents of all 
registers. Memory banks and UART are unaffected. 


SYSTEM STACK 


The monitor does not require the user to address a RAM 
board at a special place in memory for its stack and 
working storage area. At least 60H or 96 bytes of this 
page must be reserved for system use. If the multiple 
command facility is used, each additional command in a 
command line requires an additional 20 hex or 32 bytes 
stack room. 


COMMAND FORMAT 


The Z80 Monitor is controlled by one and two-character 
commands from the terminal keyboard. The format is 
free-form with respect to spaces. 


In the following, DM is the Display Memory command and S 
is the Swath operator (see below). The four examples 
are equivalent commands. They display the contents of 
100 hex bytes of memory beginning with location 1000 
hex. 


DM1000 10FF RETURN 
DM1000S100 RETURN 
D M 1000 10FF RETURN 
D M 1000 S 100 RETURN 


When entering an address as a operand, only the last 
four digits typed in are retained. For example, 
"321000" is read as "1000". Therefore, if a wrong digit 
is entered, continue typing until the last four digits 
are correct. 


Only the last two digits typed are retained when a 
two-digit number such as a data byte is entered. 
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SWATH OPERATOR 


There are two ways to specify the address range of many 
commands. The first is to simply list the beginning and 
ending addresses (and, where appropriate, the 
destination address). For example, the first command 
below programs the range 2400 through 37FF into EPROMs 
starting at E400. The second command displays the 
contents of memory between addresses E400 and E402. 


P2400 37FF E400 
DME400 E402 


Another way to do the same thing is to use the Swath 
Operator, S, to specify the width of the address range 
rather than state the ending address explicitly. 


P2400 S1400 E400 
DM E400S3 


_ MULTIPLE COMMANDS 


The After operator, "<", can be used to place more than 
one command on a command line. All of the commands on 
the command line are executed before the monitor returns 
with its prompt " : ", for a new command. 


With this feature, the monitor can write an area of 
memory onto paper tape preceded and followed by a 
sequence of nulls without any undesirable carriage 
returns or prompts inserted by the monitor. 


Example 1 


Assume that the terminal being used has a paper tape 
punch. In order to write the contents of 400 hex bytes 
Starting at 3000 hex with a leader of 95 hex nulls and 
trailer of 80 nulls, type: 


:N80 < :W3000 S 400 < :N 95 RETURN 


where the colons are prompts provided by the monitor. 
Turn on the paper tape punch after typing the carriage 
return in order to avoid writing it onto the tape. 
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There are several points to be made about the use of the 
After operator: 


-~ The order of execution of the commands is from 
right to left. Hence, the name "After" and the 
Shape "<", 


-- The After operator is logically equivalent to a 
carriage-return. Anywhere a carriage-return can 
reasonably appear in a command, the After operator 
may be used instead. However, no commands in the 
line are executed until an actual carriage-return 
is typed. 


-- If any of the GO commands appears in a 
multiple-command line, it must be the last command 
executed, i.e., the first command typed. 


-~ Each additional command on a line adds from 10 to 
20 hex bytes to the system stack size. 


Example 2 


Assume that we are using a Cromemco TUART I/O card with 
a console connected to a UART A and with a paper tape 
reader and punch connected to the input and output, 
respectively, of UART B. Assume that the baud rate of 
UART B has already been set to that of the reader and 

punch. (See Baud Rates and UART Selection section in 
this chapter.) We can copy a paper tape by switching 
the current UART to B, reading the tape into a memory 
buffer, writing a leader, writing the buffer to the 
punch, and finally switching the current UART back to A, 
the console by typing: 


:UA < :W0S2000 < :N80 < :ROS2000 < :UB RETURN 


In this case, we can leave the reader and punch on all 
time. There is no question of a carriage-return from 
the command line being punched onto the paper tape since 
two different UARTs are involved. 


Perhaps we forgot to write nulls as a trailer to the 
output tape. After the prompt, ":", again appears on 
the console, we can rectify this by typing: 

:U A < :N BO <: U B RETURN 


where, again, all colons are provided by the monitor. 
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Example 3 


Suppose we wish to make three copies of the same EPROM. 
Assume that the source is in RAM at location 2000 and 
that we want three identical copies in EPROMs located at 
E400, E800, and ECOO hex. The following command line 
will accomplish this: 


:P2000S400 ECOO < :P2000S400 E800 < :P2000S400 E400 
RETURN 


Example 4 


Either of the following will initialize the baud rate of 
a terminal connected to UART B of the TUART: 


1 < :UB RETURN 
:UA < :I < :UB RETURN 


After entering one of these commands on the console 
connected to UART A, push CARRIAGE-RETURN on the other 
terminal until the monitor prompt ":" appears. 


Example 5 


Assume that we would like to take a brief nap to refresh 
ourselves but have no alarm clock. Assume further that 
two beeps of the console bell spaced 2.1 seconds apart 
are sufficient to wake us and that the console can run 
at 300 baud. Since the Display Memory command takes 63 
characters to display 10 hex or 16 bytes of memory, at 
300 baud it takes 2.1 seconds or 0.035 minutes to 
display 10 hex bytes. 


Number of Time 
bytes (hex) (minutes) 
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First, we re-initialize the UART by typing the 
following: 


:I RETURN 


Set the console baud rate to 300 and push the 
CARRIAGE-RETURN until the monitor issues its prompt, 


wow 
. () 


To ring the bell, output 7 to port 1. For a nap of 14 
minutes: 


:0 7 1 < :DMOS10 < :07 1 < :DMOS1900 RETURN 


ERRORS AND ESCAPES 


When the monitor detects an error condition, the command 
is aborted, all breakpoints are cleared, and a "?" is 
printed followed by the prompt ":" for the next 
command. 


Any command may be aborted from the keyboard either when 
the monitor is requesting further input, or during 
print-out, by depressing either the ESCAPE or the ALT 
MODE key. CONTROL-SEMI-COLON, CONTROL-SHIFT-"K", and 
"}" may also work. 


INPUT AND OUTPUT 


The monitor assumes that a data transfer occurs on I/O 
port 1. Status flags are transmitted over input port 0. 
The data-available flag is on bit 6 of input port 0. 
The Transmitter-buffer-empty flag is on bit 7 of input 
port 0. Both flags are active high. 


To use the Cromemco TUART with the monitor, set switches 
l, 7, and 9 of the 10-position TUART switch OFF, all 
others ON. The currently selected UART uses I/O port 1 
for date transfer and input port 0 for status flags. 
The UART which is not current uses I/O port 51 hex for 
date transfer and input port 50 hex for status flags. 
(The UARTs are selected by means of the UART command.) 
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The Following locations may be changed for different I/O 
conventions: 


Status port number (00): EOOF, E020 

Input data port number (01): E014 

Output data port number (01): E027. 
Input-data-available mask (40): EOll 
Output-transmitter-buffer-empty mask (80): E022 


For active-low status flags change locations E019 and 
E379 from 28 hex to 20 hex and change location E120 from 
20 hex to 28 hex. 


BAUD RATES AND UART SELECTION 


When the monitor is entered, push CARRIAGE-RETURN until 
the monitor responds with: 


Cromemco ZM1.4 


The monitor is capable of selecting 19200, 9600, 4800, 
2400, 1200, 300, 150, or 110 baud when used with the 
Cromemco TUART I/O board. 


The maximum number of carriage-returns required to 
select any of these baud rates is four. (Two 
carriage-returns are required for any UART with a fixed 
baud rate.) 


The baud rate can also be changed by using the 
Initialize command (see Chapter 8). 


Some peripheral devices such as paper tape readers or 
punches may have no keyboards. The TUART baud rate can 
also be set by outputting a data byte from the following 
table to port 0 for the currently selected UART or to 
port 50 hex for the unselected UART. (To make UART B 
current, output 80 hex to port 4. For UART A, output 0 
to port 54 hex. UART selection can also be accomplished 
by means of the monitor's UART command, U). 
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Baud Rate Data Byte 


The baud rate can be octupled by outputting 10 hex to 
port 2 for the selected UART or to port 52 hex for the 
other UART. Outputting 0 to these ports brings the baud 
rate back to normal. 


INTERRUPTS 


The monitor can be used to enable interrupts in the 280. 
This is done by changing the value of the N register to 
1 by using the Substitute Register command, SN. (The N 
register stores the value of the 280 interrupt flip-flop 
at the time the monitor is entered.) Then interrupts 
will be enabled when one of the Go commands is given. 


Note, however, that the interrupt mask registers on the 
TUART must have been set previously, either by a user 
program or by the monitor. (If this is not done, then 
an immediate interrupt will be generated because the 
print buffer is empty). To mask out all interrupts 
output 0 to port 3 for the current UART and to port 53 
hex for the other UART. 


The mask bit corresponding to each of the possible 
interrupts is given in the following table: 
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Interrupting Device 


Timer 1 

Timer 2 

Sens (external) 

Timer 3 

Receiver Data Available 
Transmitter Buffer Empty 
Timer 4 

Timer 5 or external 


0 
1 
2 
3 
4 
5 
6 
7 


For example, to allow only interrupts from the 
input port and from Timer 1 on the current UART, 
11 hex to port 3 and 0 to port 53 hex. 
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Chapter 8 
THE 7-80 MONITOR COMMANDS 


This chapter describes the 2-80 Monitor commands in 
alphabetical order. 


DISPLAY MEMORY COMMAND 


DM beginning-addr ending-addr RETURN 


or 
DM beginning-addr S swath-width RETURN 


The contents of memory are displayed in hexa-decimal 
forn. Each line of the display is precedeä by the 
address of its first byte. Example: 


:DM2000 S3 
2000: C3 34 7F 


DISPLAY REGISTERS COMMAND 


DR RETURN 


When the monitor is re-entered from a breakpoint, the 
contents of all the 280 registers are stored in an area 
called the user-register area. (When the monitor is 
entered via reset or the warm-start entry point, all 
registers except A, Br C, D, E, F, HL, and P are saved 
in the user-register area. However, if the stack 


pointer is pointing to RAM, then all but A and P will be 
save). 


DR causes these stored registers to be displayed in the 
following format: 


A=01 B=12 C=34 D=56 E=78 F=9A HL=BCDE 
I=F0 N=00 P=1234 S=5678 X=9ABC Y=DEFO 
A '23 B'45 C'67 D'89 E'AB F'CD HL'EFO1 
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If interrupts were enabled when the monitor was entered, 
then N-1. Otherwise, N=0. 


The flag registers, F and F', are packed as follows: 
S,2,X,H X,P/V,N,C 


i.e., sign, zero, (unknown), half-carry, (unknown), 
parity or overflow, subtraction, and carry flags. 


GO TO AN ADDRESS COMMAND 


G RETURN 


The Z60 registers are loaded with the values saved in 
the user-register area. (These are the values displayed 
with the DR command). Execution then resumes at the 
location contained in the user-program-counter, P. 


G Starting-addr RETURN 


This command is exactly like the basic GO except that 
the user-program-counter, P, is first loaded with 
starting-address. . Thus, execution begins at 
starting-address. 


GO WITH BREAKPOINTS SET COMMAND 
G /breakpoint-addr-1 breakpoint-addr-2 ... RETURN 
G starting-addr/brkpt-addr-1 brkpt-addr-2 ... RETURN 


These commands are like the GO without the breakpoint 
set except that the breakpoints are set at 
breakpoint-address-l, breakpoint-address-2, etc. 


When a breakpoint is encountered in the execution of the 
user program, the monitor is re-entered. All registers 
are saved in the user register area (which is part of 
the system stack), the address of the breakpoint if 
printed, and all breakpoints are cleared (i.e., the user 
program is restored to its original state). Finally, 
the prompt, ":" is issued for the next command from the 
keyboard. Note the following about the use of 
break-points: 
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= Breakpoints can only be set in programs residing in 
RAM. This is because the monitor inserts a RST 48 
instruction (F7 hex) at each breakpoint location, 
(The original contents of these locations are saved 
so that they can later be restored). 


ao Up to five breakpoints can be set. If an attempt 
is made to st a sixth breakpoint, the monitor will 
print a question mark to indicated error, erase all 
breakpoints, and prompt for a new command. 


== When a breakpoint is set, the monitor inserts a 
3-byte jump instruction at location 30, 31, and 32 
hex are not available to the user program when 
breakpoints are used. 


-= The monitor temporarily uses ten bytes on the 
user's stack in executing a breakpoint. The area 
reserved for the user's stack must, therefore, be 
at least ten bytes larger than that required for 
the user's program. 


== If breakpoints are set in a program and the: 
computer is reset and the monitor re-entered before 
any breakpoint is reached in the execution of the 
program, then the breakpoints will have to be 
removed from the program by means of the Substitute 
Memory command, SM. However, if any breakpoint is 
reached, all breakpoints are automatically cleared 
by the monitor. 


INITIALIZE BAUD RATE COMMAND 


I RETURN 


After the CARRIAGE-RETURN is typed, change the baud rate 
of the terminal to the desired value and then push the 
CARRIAGE-RETURN until the monitor responds with its 
prompt, ":". 


The monitor is capable of selecting 19200, 9600, 4800, 
2400, 1200, 300, 150, or 110 baud when used with the 
Cromemco TUART I/O board. The maximum number of 
carriage-returns required to select any of these baud 
rates is four. 


The command is particularly useful for setting the baud 
rate of the second serial port on the TUART. 
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MOVE MEMORY COMMAND 


M source-addr source-end destination-addr RETURN 


or 
M source-addr S swath-width destination-addr RETURN 


Move the contents of memory beginning with 
source-address and ending with source-end to 
destination-address. After the move, the monitor 
verifies that source and destination are the same. This 
will result in a print-out of discrepancies which are 
not really errors after certain types of overlapping 
moves. However, this print-out can be terminated by 
depressing ESCAPE or ALT MODE. 


The Move command can be used to fill a block of memory 
with a constant. For example, to enter zercs between 
locations 2400 and 2408, use the Substitute Memory 


command to enter 0 at location 2400, and then move 2400 
through 2407 to 2401: 


M2400 2407 2401 
or 


M 2400 S 8 2401 


Care should be taken not to overwrite the system stack. 


NULLS COMMAND 
N hex-number RETURN 
Write hex-number nulls to the current device. This 


command is used to punch leaders and trailers on paper 
tape. 


OUTPUT COMMAND 


O command 
O data-byte port-number RETURN 
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Outputs data to a port. One use of this command is to 
select banks on Cromemco memory boards. When the 
monitor is first entered on power-up or reset, it 
selects bank 0 and turns off all other memory banks. 


Either a software output or a monitor output to port 40 
hex serves to change the bank selection. To select bank 
n, output a byte with bit n high. To select two banks, 
n and m, output a byte with both bits n and m high. 


SND Om WN FH © 


For example, the first command selects bank 5 and the 
second selects banks 4 and 5. 


O 20 40 
O 30 40 


PROGRAM PROMS COMMAND 


P source-addr source-end destination-addr RETURN 
or 
P source-addr S swath-width destination-addr RETURN 


Program from source-address through source-end into 
EPROMS beginning at destination-address. 


If the length of the source is not a multiple of 400H 
(1024 decimal) or if the destination does not begin at 
400H boundary, the monitor will reject the command. 
(Multiples of 400H end in "000", "400", "800", or 
"co0"), 


Any number of Intel 2716-compatible EPROMS can be 
programmed in the execution of one command as long as 
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there are enough BYTESAVERS to contain them. Each EPROM 
is verified with its source after all are programmed and 
any discrepancies are printed out. If there are none, 
the prompt ":" is issued and the monitor awaits the 
next command. 


Software can be loaded into a EPROM in as small 
increments as you desire provided it is added to 
previously unused areas of the EPROM. 


This is done by first using the Move command, M, to 
transfer the current contents of the EPROM down to RAM, 
adding the new software to an area of RAM which 
corresponds to the unused portion of the EPROM and 
finally using the Program command, P, to re-program the 
EPROM with the result. 


Although the entire EPROM must always be programmed, it 
never hurts to re-write the same data over again. 


In general, a 1 may be written over al, a 0 over either 
a 1 or a 0, but the only way to change 0's to 1's is to 
erase the EPROM with appropriate UV light. 


READ COMMAND 


R destination-addr destination-end RETURN 
or 
R destination-addr S swath-width RETURN 


Read binary or ASCII input from paper tape reader or 
console and store in memory from destination-address 
through destination-end. After destination-end has been 
filed, the monitor prompts for the next command. 


SUBSTITUTE MEMORY COMMAND 


SM address RETURN 


Substitute Memory displays the contents of address and 
outputs a dot, ".", as a prompt for the substituted 
value. If no change is desired, type a space or another 
dot. Otherwise, enter the new value. The monitor 
accepts hex digits until it gets a delimiter, such as a 
space, dot, or carriage-return retaining the last two 
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digits entered as the value. Unless the delimiter is a 
carriage-return, the monitor outputs the contents of the 
next sequential memory location with a dot prompt. A 
carriage-return terminates the commands. 


SUBSTITUTE REGISTER COMMAND 


S register-name RETURN 


Register-name may be A, B, C, D, E, F, H (HL), I, N 
(state of the 280 interrupt flip-flop), P (PC), S (SP), 
A', B', C', D', E', F', H' (HL), X (IX), OR Y (IY). 


This command prints the name of the user-register 
requested, displays its contents, outputs a dot, ".", as 
a prompt for the substituted value. If no change is 
desired, type a space or another dot. Otherwise, enter 
the new value. The monitor accepts hex digits until it 
gets a delimiter such as space, dot, or carriage-return 
retaining the last two digits (four digits for a 2-byte 
register). Unless the delimiter is a carriage-return, 
the monitor prints the name and contents of the next 
register followed by the dot prompt. A carriage return 
terminates the command. 


UART SELECT COMMAND 


U device-name RETURN 

Device-name may be A or B. The Cromemco TUART has two 
UARTS. When the monitor is entered via reset, UART A is 
selected for its input/output channel. This command 


allows the user to change the UART selection. It is 
often used in the multiple command. 


VERIFY COMMAND 


V source-addr source-end destination-addr RETURN 

or 

V source-addr S swath-width destination-addr return 
Verify that the block of memory between source-address 
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and source-end contains the same values as the block 
beginning at destination-address. The addresses and 
contents are printed for each discrepancy found (unless 
the print-out if terminated by ESCAPE or ALT MODE). 


This command works by reading bytes from the source and 
destination and comparing them. If a discrepancy is 
found, the memory is read again for print-out. Thus, it 
can happen that a discrepancy is printed-out with the 
source and destination contents indicated to be the 
same. This is caused by a defective memory element. 


WRITE COMMAND 


W source-addr source-end RETURN 


or 
W source-Addr S swath-width RETURN 


Write binary or ASCII output from source-address through 
source-end to the current device (selected by the UART 
command). After source-end has been written, the 
monitor prompts for the next command. 


The Write command is useful for punching binary or ASCII 
paper tapes of the contents of memory and for looking at 
the ASCII contents of memory on the console. 


When punching a paper tape, it is usually desirable to 
punch series of nulls as leader and trailer. This can 
best be done in conjunction with the Null command and 
the After operator. (See Multiple Commands for examples 
of this usage). 
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Appendix A 


CONTROL BASIC LISTINGS 


The listings in this appendix are provided to help you 
get the most from Control Basic. Figure A-1 lists the 
equates used by the MCB-216 version for addressing. 
Figure A-2 lists the equates and I/O routines used by 
the MCB-216/P version. 
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CROMEMCO 280 Macro Assembler version 03.08 Mar 21, 1982 15:03:41 Page 0001 
CONTROL BASIC MCB-216 VERSION 
Memory Map 
0003 t RR 2 2 2 2 2 2 2 2 2 2 2 2 2 2 272 2 2 272 2 2 2 2 2 2 2 272 2 2 2 2 2 27272 2 2 2 2 2 2 2 22 2 2 2 2 2 2 2 2 22 2 
0004 ; * * 
0005 ; * Control Basic -- MCB-216 version * 
0006 ; * % 
0007 ; * MEMORY MAP * 
0008 ; * N 
0099 ? REE IK RR IRIE RR RR RR REE REE RE RE KEE RR RE ER RR RARR RR dk RR RR 
0010 
0011 
0012 ? a2 2 2 2 2 2 2 2 2 2 2 2 2 2702 GENERAL MEMORY USAGE BE 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 
0013 
0014 ; 0000-0422 are for Z-80 Monitor (ROM) 
0015 ; 0423-OFFF are for 3K Control Basic Interpreter (ROM) 
0016 ; 1000-1FFF are for SAVEd user programs (ROM on SCC) 
0017 ; 2000-21FE are for variables, input line, and stack (SCC onboard RAM) 
0018 ; 21FF-23FF are for Control Basic text & array @(I) (SCC onboard RAM) 
0019 ; 2400-FFFF are not used but may be used for saved files (external RAM) 
0020 
0021 
0022 ; Ba 2 2 202 2 2 202 2 2 2 2 2 2020202 RESTART ADDRESSES TR RR RR RR RT 2 2 202 272 2 2.273 
0023 
(0423) 0024 CSTART EQU 423H ; Cold start address: initializes 
0025 ; everything and sets baud rate 
0026 f of terminal 
(0447) 0027 WSTART EQU 4478 ; Warm start address: doesn't re-initialize 
0028 ? margins or terminal baud rate but 
0029 ; does clear program area 
(0452) 0030 RSTART EQU 452H ; Restart address: program area is 
0031 ? preserved by stack pointer is 
0032 $ re-initialized 
0033 
0034 
0035 : ie % ie de de 2 2 2 2 2 2 202 2 de dee de de EOUATES FOR TEXT AREA RRERRR RR a RE 
0036 
(2000) 0037 BOTRAM EQU 2000H ; “Bottom op RAM" for variables, etc. 
{2400) 0038 TOPRAM EQU 2400H ; "Top of RAM" used by Control Basic 
(0423) 0039 BOTROM EQU 423H ; "Bottom of ROM" contains Control Basic 
(003B) 0040 MONITR EQU 3BH 3} Z-80 Monitor entry point 
(005C) 0041 INITTUART EQU 5CH ; Location of TUART init. routine 
CROMEMCO 280 Macro Assembler version 03.08 Mar 21, 1982 15:03:41 d Page 0002 
CONTROL BASIC MCB-216 VERSION 
Memory Map 
0043 ; EERERRE KERR ER TEXT AREA LAYOUT *## deee de i ded A dede de RR RR Rd 
0044 
(2000) 0045 ORG BOTRAM 
2000 (0068) * 0046 VARBGN: DEFS 2* (26*2) ; Variable A-Z and A0-Z0 storage 
2068 (0001) 0047 DEFS 1 ; Extra byte for input buffer 
2069 (0085) 0048 BUFFER: DEFS 133 ; Storage for input line buffer 
{20EE) 0049 BUFEND EQU $ ; End of input buffer 
20EE (0028) 0050 DEFS 40 ; Extra bytes for stack 
2116 (00C4) 0051 STKLMT: DEFS 200-4 ; Soft limit for stack 
(21DA) 0052 STACK EQU $ ; Top of stack 
21DA (0004) 0053 DEFS 4 ; Reserved for RDOS 
21DE (0001) 0054 BASFLGS:DEFS 1 ; 0 for CSTART; non-0 for warm-start 
21DF (0002) 0055 IOINS: DEFS 2 ; Storage for an I/O instruction 
21E1 (0001) 0056 IORET: DEFS 1 ; Storage for the RETurn instruction 
21E2 (0001) 0057 NULLS: DEFS 1 ; Number of nulls after CR-LF 
21E3 (0001) 0058 MARGN: DEFS $ ; Soft terminal width 
21E4 (0001) 0059 DEFS 1 ; Hard terminal width 
21E5 (0001) 0060 OCMG: DEFS 1 ; Column counter for margins 
21E6 (0001) 0061 OCSW: DEFS 1 3 Switch for printer output 
21E7 (0002) 0062 CURRNT: DEFS 2 ; Current line number storage 
21E9 (0002) 0063 STKRUN: DEFS 2 ; Saves stack pointer during 'RUN" 
21EB (0002) 0064 STKGOS: DEFS 2 ; Saves stack pointer during 'GOSUB' 
(21ED) 0065 VARNXT EQU $ ; Temp. stor. of current 'NEXT' var. 
(21ED) 0066 CALDE EQU $ ; Temp. stor. for addr. for 'CALL! 
21ED (0002) 0067 STRINP: DEFS 2 ; Saves stack pointer during 'INPUT' 
2lEF (0002) 0068 LOPVAR: DEFS 2 ; Address of 'FOR' loop variable 
21Fl (0002) 0069 LOPINC: DEFS 2 ; 'Step' size for 'POR' loop 
21F3 (0002) 0070 LOPLMT: DEFS 2 ; Limit of 'FOR' loop variable 
21F5 (0002) 0071 LOPLN: DEFS 2 ; Temp. stor. of ‘Currnt' in 'FOR" 
21F7 (0002) 0072 LOPPT: DEFS 2 ; Text pointer temp. stor, in 'FOR' 
21F9 (0002) 0073 RANPNT: DEFS 2 ; Addr. pointer used in RND func. 
21FB (0002) 0074 TXTBGN: DEFS 2 ; Storage of text pointer addr. 
21FD (0002) 0075 TXTLMT: DEFS 2 ; Text area limit (same as 'TOPRAM' 
0076 ; unless changed by 'LOCK') 
(21FF) 0077 TXTRAM EQU $ 1 
21FF (0002) 0078 TXTUNF: DEFS 2 ; Pointer to unfilled text area 
2201 (0002) 0079 TEXT: DEFS 2 ; Start of actual text (storage 
0080 ; of first line number) 
Errors 0 
Range Count 0 


Figure A-l: EQUATES FOR MCB-216 CONTROL BASIC ADDRESSING 
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MCB-216 Software 
A. Control Basic Listings 


CROMEMCO 780 Macro Assembler version 03.08 


Mar 21, 1982 15:03:41 Page 0003 
CONTROL BASIC MCB~216 VERSION 


Symbol Value Defn References 
BASFLGS 21DE 0054 
BOTRAM 2000 0037 0045 
BOTROM 0423 0039 
BUFEND 20EE 0049 
BUFFER 2069 0048 
CALDE 21ED 0066 
CSTART 0423 0024 
CURRNT 21E7 0062 
INITTUAR 005C 0041 
IOINS 21DF 0055 
IORET 21El 0056 
LOPINC 21F1 0069 
LOPLMT 21F3 0070 
LOPLN 21FS 0071 
LOPPT 21F7 0072 
LOPVAR 2lEF 0068 
MARGN 21E3 0058 
MONITR 003B 0040 
NULLS 21E2 0057 
OCMG 2185 0060 
ocsw 2166 0061 
RANPNT 21F9 0073 
RSTART 0452 0030 
STACK 21DA 0052 
STKGOS 21EB 0064 
STKINP 21ED 0067 
STKLMT 2116 0051 
STKRUN 21E9 0063 
TEXT 2201 0079 
TOPRAM 2400 0038 
TXTBGN 21FB 0074 
TXTLMT 21FD 0075 
TXTRAM 21FF 0077 
TXTUNF 21FF 0078 
VARBGN 2000 0046 
VARNXT 21ED 0065 
WSTART 0447 0027 


Figure A-l: 


EQUATES FOR MCB-216 CONTROL BASIC ADDRESSING 
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MCB-216 Software 
A. Control Basic Listings 


CROMEMCO 280 Macro Assembler version 03.08 Mar 21, 1982 15:02:52 Page 0001 
CONTROL BASIC MCB-216/P VERSION 
Memory Map 
0003 t HK RRRRR REKE RR EER RR RR RR REE RE RE RK RR REE HK KERR RR RR KERR RR RR RR 
0004 ; * J 
0005 ; * Control Basic -- MCB-216/P version u 
0006 ; * * 
0007 ; * MEMORY MAP & I/O ROUTINES * 
0008 ; * * 
0009 n RE RR 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 202 
0010 
0011 
0012 3 *RREEERREERERREK GENERAL MEMORY USAGE *# #822 k eR KEER EER 
0013 
0014 ; 0000-041C are for 2-80 Monitor (ROM) 
0015 ; 041D-0422 are not used {FFH in ROM) 
0016 ; O0423-0FFE are for 3K Control Basic Interpreter (ROM) 
0017 ; OFFF is not used (FFH in ROM) 
0018 ; 1000-1FFF are for SAVEd user programs (ROM on SCC) 
0019 ; 2000-21FE are for variables, input line, and stack (SCC onboard RAM) 
0020 ; 21FF-23FF are for Control Basic text & array @(I) (SCC onboard RAM) 
ues } 2400-FFFF are not used but may be used for saved files (external RAM) 
2 
0023 
0024 ? WERE EA HE RESTART ADDRESSES EEE 2 2 2 2 2 2 RE RR 2 2 2 2 2.3 
0025 
(0423) 0026 CSTART EQU 423H ; Cold start address: initializes 
0027 $ everything and sets baud rate 
0028 ; of terminal 
(0447) 0029 WSTART EQU 447H ; Warm start address: doesn't re-initialize 
0030 ; margins or terminal baud rate but 
0031 ; does clear program area 
(0452) 0032 RSTART EQU 452H ; Restart address: program area is 
0033 ? preserved by stack pointer is 
0034 ; re-initialized 
0035 
0036 
0037 ? * RR % dd de dd dd Rd Rd a EQUATES FOR TEXT AREA Wer 
0038 
(2000) 0039 BOTRAM EQU -2000H + "Bottom op RAM" for variables, etc. 
(2400) 0040 TOPRAM EQU 2400H ; "Top of RAM" used by Control Basic 
(0423) 0041 BOTROM EQU 423H ; "Bottom of ROM" contains Control Basic 
(003B) 0042 MONITR EQU 3BH ; 2-80 Monitor entry point 
(004C) 0043 INITTUART EQU ACH ; Location of TUART init. routine 
(0070) 0044 CHEIN EQU 708 ; Keyboard status routine 
(0041) 0045 PBYTE EOU 41H 3 Output byte to terminal 
CROMEMCO 280 Macro Assembler version 03.08 Mar 21, 1982 15:02:52 Page 0002 
CONTROL BASIC MCB-216/P VERSION 
Memory Map 
0047 ? a2 2 2 2 2 22 202 2 22272 2 TEXT AREA LAYOUT a2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 RR RR 
0048 ` 
(2000) 0049 ORG BOTRAM 
2000 (0068) 0050 VARBGN: DEFS 2* (26*2) ; Variable A-Z and A0-Z0 storage 
2068 (0001) 0051 DEFS 1 + Extra byte for input buffer 
2069 (0085) 0052 BUFFER: DEFS 133 ; Storage for input line buffer 
(20EE) 0053 BUFEND EQU $ ; End of input buffer 
20EE (0028) 0054 DEFS 40 ; Extra bytes for stack 
2116 (00C4) 0055 STKLMT: DEFS 200-4 ; Soft limit for stack 
(21DA) 0056 STACK EQU $ ; Top of stack 
21DA (0004) 0057 DEFS 4 ; Reserved for RDOS 
21DE (0001) 0058 BASFLGS:DEFS $ 3 0 for CSTART; non-0 for warm-start 
21DF (0002) 0059 IOINS: DEFS 2 ; Storage for an I/O instruction 
21E1 (0001) 0060 IORET: DEFS 1 ; Storage for the RETurn instruction 
2182 (0001) 0061 NULLS: DEFS 1 ; Number of nulls after CR-LF 
21E3 (0001) 0062 MARGN: DEFS 1 3 Soft terminal width 
21£4 (0001) 0063 DEFS 1 ; Hard terminal width 
21E5 (0001) 0064 OCMG: DEFS 1 ; Column counter for margins 
21E6 (0001) 0065 ECHOP: DEFS 1 : Switch for printer output 
21E7 (0002) 0066 CURRNT: DEFS 2 ; Current line number storage 
21E9 (0002) 0067 STKRUN: DEFS 2 + Saves stack pointer during 'RUN' 
21EB (0002) 0068 STKGOS: DEFS 2 ; Saves stack pointer during 'GOSUB' 
(21 ED) 0069 VARNXT EQU $ ; Temp. stor. of current ‘NEXT’ var. 
{21ED) 0070 CALDE EQU $ ; Temp. stor. for addr. for ‘CALL’ 
21ED (0002) 0071 STKINP: DEFS 2 7 Saves stack pointer during "INPUT! 
21EF (0002) 0072 LOPVAR: DEFS 2 ; Address of 'FOR' loop variable 
21F1l (0002) 0073 LOPINC: DEFS 2 ; 'Step’ size for 'FOR' loop 
21P3 (0002) 0074 LOPLMT: DEFS 2 ; Limit of 'FOR' loop variable 
21F5 (0002) 0075 LOPLN: DEFS 2 ; Temp. stor. of 'Currnt' in 'FOR' 
21F7 (0002) 0076 LOPPT: DEFS 2 ; Text pointer temp. stor. in 'FOR' 
21F9 (0002) 0077 RANPNT: DEFS 2 ; Addr. pointer used in RND func. 
21FB (0002) 0078 TXTBGN: DEFS 2 ; Storage of text pointer addr. 
21FD (0002) 0079 TXTLMT: DEFS 2 ; Text area limit (same as 'TOPRAM' 
0080 ; uniess changed by 'LOCK') 
(21FP) 0081 TXTRAM EQU $ 
21FF (0002) 0082 TXTUNF: DEFS 2 ; Pointer to unfilled text area 
2201 (0002) 0083 TEXT: DEFS 2 ; Start of actual text (storage 
0084 ; of first line number) 


Figure A-2: EQUATES AND I/O ROUTINES 
FOR MCB-216/P CONTROL BASIC ADDRESSING 
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MCB-216 Software 
A. Control Basic Listings 


CROMEMCO 280 Macro Assembler version 03.08 Mar 21, 1982 15:02:52 
CONTROL BASIC MCB-216/P VERSION 
I/O Routines 


0086 ; a2 2 2 2 2 2 2 2 2 2 2 22 2 0202 1/0 ROUTINES 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2.2 2.2 2 2 2 2 202 
0087 ; 
0088 ; These are the only I/O routines in Control Basic. 
0089 ; 
0090 ; OUTCHR outputs the byte in register A. If it is a CR then 
0091 ; a LF is also output. If echop is non-zero, then the byte 
0092 ; is also output to the printer. 
0093 ; Only the flags may be changed at return, all registers 
pas 0094 ; are restored, 
0095 ; 
0096 ; CHKINP checks the input. If no input, it will return to 
0097 ; the caller with the Z flag set. If there is input, Z flag 
0098 ; is cleared and the input byte is in A. However, if the 
0099 ; input is a Control-P, the 'ECHOP' swithc is complemented and 
0100 ; 2-flag is returned. If a Control-C is read, 'CHEINP' will 
ao } restart Control Basic and not return to the caller. 
0103 
0104 ; *kekKEAHAHRRERERE EQUATES FOR I/O ROUTINES ‘*#k8kkkkeRRRERER 
0105 
u (0000) 0106 CSTAT EQU 0 ; Console status port (IN) 
{0001) 0107 CDATA EQU CSTAT+1 ; Console data port (IN/OUT) 
(0080) 0108 TBE EQU 80H ; Transmitter-buffer-Empty mask 
(0040) 0109 RDA EOU 40H ; Receiver-data-available mask 
{007F) 0110 PSTRIP EQU 7FH ; Parity-strip mask 
0111 . : 
(0.007) 0112 NOTLST EQU 7 ; Bit used to check for a CSTART entry 
0113 
(0000) 0114 NUL EQU 00H ; ASCII null character 
(0003) 0115 CTRLC EQU 03H ; ASCII Control-C character 
(000A) 0116 LF EQU OAH ; ASCII line feed 
(000D) 0117 CR EQU ODE ; ASCII carriage return 
os (000F} 0118 CTRLO EQU OFH ; ASCII Control-0 character 
i (0010) 0119 CTRLP EOU 10H ; ASCII Control-p character 
(0020) 0120 SPC EQU 20H ; ASCII space character 
0121 
0122 
0123 
0124 
(0E74) 0125 ORG 0E74H 
0E74 3E0D 0126 CRLF: LD A,CR ı *** CR-LF ROUTINE *** 


Figure A-2: EQUATES AND I/O ROUTINES 
FOR MCB-216/P CONTROL BASIC ADDRESSING 
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MCB-216 Software 


A. Control Basic Listings 


CROMEMCO 280 Macro Assembler version 03.08 
CONTROL BASIC MCB-216/P VERSION 
I/O Routines 


0876 
0E77 
0E78 
0E7A 


0E7D 
0E80 
0E82 
0E85 
0887 
0E89 
0E8B 
0E8D 
OE8E 
OEBF 
0E92 
0E93 
0E95 
OE96 
0E99 
0E9A 
OE9B 


0E9ID 
OEA0 
OEAL 
OEA2 
OEA4 


OEAS 
OEA6 
OEA8 
OEAB 
OEAE 
OEAF 
OEBO 
OEB1 
OEB2 
OEBS 
0EB7 
OEB8 
OEB9 


OEBA 
OEBB 
OEBC 


ES 

FS 
E67F 
CD4100 


CDE70E 
PEOD 
218521 
2002 
3601 
FE20 
3813 
7E 

34 
2AE321 
BC 
2808 
BD 
FAAOOE 
Fl 

F5 
FE20 


CC740E 
Fl 

El 
FEOD 
co 


F5 
3E0A 
CD760E 
3AE221 
cs 

47 

97 

05 
F4760E 
38F9 
cl 

Fl 

c9 


0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
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EEE OUTCHR ROUTINE **RERRRRREREERRRER RR RR RI 


OUTCHR: 

PUSH HL 

PUSH AF 

AND PSTRIP 

CALL PBYTE 

CALL PRINTCH 

cP CR 

LD HL, OCMG 

JR NZ , OUTC20 

LD (HL) ,1 
OUTC20: CP SPC 

JR C,OUTC40 

LD A, (HL) 

INC (HL) 

LD HL, (MARGN) 

cP H 

JR Z,OUTC30 

cp L 

JP M,OUTC40 

POP AF 

PUSH AF 

cP SPC 
OUTC30: CALL Z,CRLF 
OUTC40: POP AF 

POP HL 

cP CR 

RET NZ 

PUSH AF 

LD A,LF 
.OUTNL: CALL OUTCHR 

LD A, (NULLS) 

PUSH BC 

LD B,A 
OUTC50: SUB A 

DEC B 

CALL P,OUTCHR 

JR C,OUTC50 

POP BC 
ENDOUT: POP AF 

RET 


OUTNUL: PUSH AF 
JR -OUTNL 


Figure A-2: 
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~e se se 


Save registers 


Strip parity bit 
Output the byte to terminal (routine in 
the monitor) 
Echo character to printer if ECHOP is set 
Check for carriage return 
Point to column-counter 
Skip if character is not CR 
Initialize column-counter if new line 
Check for printable character 
Skip if not printable 
Get column-counter 
and increment it for printables 
H gets hard and L gets soft margin 
Check for having reached hard margin 
Force output CR-LF if so 
Check for having reached soft margin 
Skip if not yet reached 
Get character again 
And put back 
Check for space character 
(do CR-LP at first space after soft margin) 
Output CR-LF if found 
Restore registers 


Check for carriage return 
Retrun to Control Basic if not CR 


Save AF register 

If CR, send line feed also 
(This is recursive) 

Get number of nulls 

Save BC register 7 

Put null-count into B register 
Clear A register to a null 
Decrement null-count 

Output null if count not= 0 
C-flag set by OUTCHR if last char. was null 
ang registers 


Return to Control Basic 


Save AF since OUTNUL pops it 
Send at least one nul 


EQUATES AND I/O ROUTINES 


FOR MCB-216/P CONTROL BASIC ADDRESSING 


96 


MCB-216 Software 
A. Control Basic Listings 


CROMEMCO Z80 Macro Assembler version 03.08 
CONTROL BASIC MCB-216/P VERSION 
I/O Routines 


Mar 21, 1982 15:02:52 


0180 ; de dek 2 2 2 2 RR RR 2 RR RR RR CHKINP ROUTINE RR RR RR d 22 2 2 2 2 2 2.2 2.2 222 23 
0181 
0182 CHKINP: 
OEBE CD7000 0183 CALL CHKIN ; Call the monitor for a byte from the 
0184 ? console 
OEC1 C8 0185 RET Z ; Return to Control Basic if not ready 
OEC2 E67F 0186 AND PSTRIP ; Strip parity bit 
OEC4 FE10 0187 cP CTRLP ; Check for Control-P character 
OEC6 200D 0188 JR NZ,CHKILO ; If not CTRL-P, do further checking 
OEC8 3AE621 0189 LD A, (ECHOP) 3 Control-p toggles printer echo switch 
OECB 2F 0190 CPL 3 Toggle ail bits 
OECC 325621 0191 LD {ECHOP) ‚A ; Store printer echo switch back 
OECF B7 0192 OR A ; Should we select the printer? 
OEDO CAE30E 0193 CALL NZ, SELECTP ı NZ -> yes 
OED3 18E9 0128 JR CHKINP } Input another character 
5 
OEDS FEO3 0196 CHKI1O: CP CTRLC ; Check for Control-C character 
QED7 CA5204 0197 JP 2,RSTART ; Z => A Control-c, so restart 
OEDA FE61 0198 cp ta! ; Is the characterlower case? 
OEDC D8 0199 RET Cc ; C -> No, so return 
OEDD FE7B 0200 cp 'z'+1 
OEDF DO 0201 RET NC ; NC -> No, so return 
OEEO D620 0202 SUB 20H ; Map to upper case 
OBE2 C9 0203 RET 
0204 ; 
0205 3--------- ECHO TO PRINTER ROUTINE---~------ 
0206 ; 
0207 
(0005) 0208 PBUSY: EOU 5 
(0007) 0209 PSTROBE: EQU 7 
(0011) 0210 PSELECT: EQU llh 2 
(0054) 0211 PSTATUS: EOU 54h 
(0054) 0212 PDATA: EOU 54h 
0213 
0214 
0215 ;SELECTP selects the printer to accept output 
0216 
0217 SELECTP: 
OEE3 | 3E11 0218 LD A,PSELECT 
OEES 1811 0219 JR PCH2 
0220 
0225 » PRINTCH prints 1 characteron C3703 or C3779 
0223 ; INPUT: A Contains character 
0224 
0225 PRINTCH: 
OBE7 F5 0226 PUSH AF 7 Save character 
OEE8 CDBEOE 0228 PCHl: CALL CHKINP ; Check for a CNTRLP 
OEEB 3AE621 0229 LD A, (ECHOP) 7 Should we echo the character? 
OEEE B7 0230 ` OR A 
OEEF 2816 0231 JR 2,PCHRET + 4 => No, so pop a and ret 
OEF1 DB54 0232 IN A, PSTATUS } Read printer status 
OEF3 CB6F 0233 BIT PBUSY,A ; Is printer busy? 


CROMEMCO 280 Macro Assembler version 03.08 
CONTROL BASIC MCB~216/P VERSION 
I/O Routines 


OEF5 20F1 0234 . JR NZ, PCH] 
0235 
OEF7 Fi 0236 POP AF 
OEFB CBFF 0237 PCH2: SET PSTROBE,A 
OEFA D354 0238 OUT PDATA,A 
OEFC CBBF 0239 RES PSTROBE,A 
OEFE D354 0240 OUT PDATA,A 
0F00 CBFF 0241 SET PSTROBE,A 
OFO2 D354 0242 OUT PDATA,A 
0F04 CBBF 0243 RES PSTROBE,A 
OFO6 C9 0244 RET 
0245 PCHRET: 
OFO7 Fl 0246 POP AF 
OFO8 C9 0247 RET 
Errors 0 
Range Count 0 


Figure A-2: 


Mar 21, 1982 15:02:52 


NZ -> Yes, so loop till printer is ready 
Character to printer 
Output character to printer with strobe bit high 


Before printing (strobe is active low) 
Toggle strobe bit lo, then high to print character 


Restore a to entry condition 


Retrieve character 


EQUATES AND I/O ROUTINES 
FOR MCB-216/P CONTROL BASIC ADDRESSING 
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MCB-216 Software 
A. Control Basic Listings 


CROMEMCO 280 Macro Assembler version 03.08 
CONTROL BASIC MCB-216/P VERSION 


Symbol 


„OUTNL 
BASFLGS 
BOTRAM 
BOTROM 
BUFEND 
BUFFER 
CALDE 
CDATA 
CHKI10 
CHKIN 


ENDOUT 
INITTUAR 
IOINS 


OUTC20 
OUTC30 
OUTC40 
OUTC50 
OUTCHR 
OUTNUL 
PBUSY 
PBYTE 
PCHI 
PCH2 
PCHRET 
PDATA 
PRINTCH 
PSELECT 
PSTATUS 
PSTRIP 
PSTROBE 
RANPNT 


Value 


0EA8 
21DE 
2000 
0423 
20EE 
2069 
21ED 
0001 
OEDS 
0070 
OEBE 
000D 
0E74 
0423 
0000 
0003 
000F 
0010 
21E7 
21E6 
OEB8 
004C 
21DF 
21E1 
000A 
21F1 
21F3 
21F5 
21F7 
21EF 
21E3 
0038 
0007 
0000 
21E2 
21E5 
0E89 
OESD 
OEAO 
OEBO 
0E76 
OEBA 
0005 
0041 
OEES 
OEF8 
OF 07 
0054 
OEE? 
0011 
0054 
007F 
0007 
21F9 


Defn 


0162 
0058 
0039 
0041 
0053 
0052 
0070 
0107 
0196 
0044 
0182 
0117 
0126 
0026 
0106 
0115 
0118 
0119 
0066 
0065 
0171 
0043 
0059 
0060 
0116 
0073 
0074 
0075 
0076 
0072 
0062 
0042 
0112 
0114 
0061 
0064 
0141 
0154 
0155 
0166 
0130 
0176 
0208 
0045 
0228 
0237 
0245 
0212 
0225 
0210 
0211 
0110 
0209 
0077 


References 
0178 
0049 


0188 
0183 
0194 0228 


0126 0137 0157 
0154 


0107 
0196 


0187 
0189 0191 0229 


0161 


0145 


0163 
0138 
0139 
0147 
0142 0149 
0169 
0162 0168 


0233 

0134 

0234 

0219 

0231 

0238 0240 0242 
0136 

0218 

0232 

0133 0186 

0237 0239 0241 0243 


CROMEMCO 280 Macro Assembler version 03.08 
CONTROL BASIC MCB-216/P VERSION 


Symbol 


RDA 
RSTART 
SELECTP 
SPC 
STACK 
STKGOS 
STKINP 
STKLMT 
STKRUN 
TBE 
TEXT 
TOPRAM 
TXTBGN 
TXTLMT 
TXTRAM 
TXTUNF 
VARBGN 
VARNXT 
WSTART 


Value 


0040 
0452 
OEE3 
0020 
21DA 
21EB 
21ED 
2116 
21E9 
0080 
2201 
2400 
21FB 
21FD 
21FF 
21FF 
2000 
21ED 
0447 


Defn 


0109 
0032 
0217 
0120 
0056 
0068 
0071 
0055 
0067 
0108 
0083 
0040 
0078 
0079 
0081 
0082 
0050 
0069 
0029 


References 


0197 
0193 
0141 0152 


Figure A-2: 
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MCB-216 Software 
B. Listings of 2-80 Monitor Program 


Appendix B 


LISTING OF 2-80 MONITOR PROGRAM 


In some situations, you may need to write a program 
Similar to the 2-80 Monitor. Figure B-l lists the 
Monitor's source code so that you can use it as a basis 
for’ your program. 
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MCB-216 Software 


B. Listings of Z-80 Monitor Program 


CROMEMCO 280 Macro Assembler version 03.08 


CROMEMCO 280 MONITOR 


Program Listing 


(0000) 
(0001) 
(0002) 
(0000) 
(0004) 
(0032) 

0054) 
(0040) 
(0080) 


(0005) 
(0016) 
(0016) 
{000B) 


(0030) 
(0000) 
(0005) 
(0006) 
(0007) 


(000D) 
(000A) 
(001B) 
(007D) 


(FFFF ) 
(FFFD) 
(FFFB) 
(FFF9) 
(FFF7) 
FFFS) 
FFF3) 
(FEF1) 
(FFEF) 
{FFED) 
(FFEB) 
(FFE9) 
(FFE7) 


(001A) 


0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 


a ee + 


STAT: 
DATA: 
ACMNDP: 
ABAUDP: 
APARLP: 
BCMNDP: 
BPARLP: 
DAV: 
TBE: 


j 
NBRKPT: 
BPSTOR: 
TEMPS: 
BPMRK: 


RSTLC: 
CASE: 
B2F: 
PF; 
CRF: 


7 
CR: 
LF: 
ESC: 
ALT: 


EOU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 


Mar 21, 1982 08:25:01 


EE E DE F FE SE FE e e ERR RR He TREE Fe EER ER RR RR RR RR He RR RR RR ER R ee e e He RARE RK 


* 
* 
CROMEMCO Z~80 MONITOR * 
Program Listing = 

* 

* 


AE FE e He Ae 2 2 212 22 e 2 2 RR 2 2 272 21202 2020212 e de de de IK RIKI de dd de de e de de de de He He dk de de e N N Re 


0 } STATUS PORT, DEVICE A 
1 ; DATA PORT, DEVICE A 
2 » COMMAND PORT, DEVICE A 
0 ; BAUD PORT, DEVICE A 
4 ? PARALLEL PORT, DEVICE A 
52H ; COMMAND PORT, DEVICE B 
54H ; PARALLEL PORT, DEVICE B 
40H ; DATA-AVAILABLE MASK 
80H } TRANSMITTER-BUFFER-EMPTY MASK 
5 3 ALLOW ROOM FOR 
NBREPT* 442 ; BREAKPOINT STORAGE 
BPSTOR 
OBR `; USED TO MARK THE SET- 

; TING OF A BP IN BPSTOR, 
30H ; RESTART LOCATION 
0 ı (REQUIRES UPPER-CASE) 
5 ; 2-BYTE FLAG 
6 + PRIME-ABLE REGISTER FLAG 
7 } CRLF FLAG 
ODH 
OAR 
1BH 
7DH 


+ DISPLACEMENTS FROM IX OF HI BYTE OF REGISTER PAIRS 


; 


; 
DUPC: 
DUAF : 
DUBC: 
DUDE: 
DUEL: 
DUSP: 
DUIX: 
DUIY: 
DUIN: 
DUAF 2: 
DUBC2: 
DUDE2: 
DUHL2: 


i 
LENRGS: 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 


=l 
-3 
-5 
-7 
-9 
-11 
-13 
-15 
a2 » I & THE INTERRUPT FF 
-21 
-23 
-25 


DUPC-DUHL2+2 


Figure B-l: 2-80 MONITOR SOURCE CODE LISTING 
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0000 


0008 
0010 
0018 
0020 
0028 


0030 


0038 


003B 
003C 
003D 
003F 


(10F2) 
(10F 4) 
(10F6) 
(10F8) 
(10FA) 
(10FE) 
(10F0) 


(0423) 
(0452 


(0000) 
€32304 


(0008) 
C3F210 
(0010) 
C3F410 
(0018) 
C3F610 
(0020) 
C3F810 
(0028) 
C3FA10 


(0030) 
C38000 


(0038) 
C3FELO 


F5 
PS 
3586 
1844 


0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 


BY PLACING VECTORS AT THE TOP OF THE FIRST PAGE 


; 
; 
; SIX OF THE EIGHT RESTARTS CAN BE USED FOR INTERRUPTS 
; 


OF THE PROM ADDRESSED AT 1000H 


RSTO 8H 
RST1OH 
RST1 8H 
RST20H 
RST2 8H 
RST38H 
NMI: 


CBASIC 


EQU 
EQU 
EQU 
EQU 
EOU 
EOU 
EOU 


EQU 


CBRSTART EQU 


; 


10F2H 

10F4H 

10F6H 

10F8H 

LOFAH 

LOFEH $ 
10F0H ; SEE 'NMIJUMP' 
423H 
CBASIC+[452H-423H] 

0 

CBASIC 


8 
RSTO8H 
10H 
RST1OH 
18H 
RST18H 
20H 
RST20H 
28H 
RST28H 


308 


SVMS BREAKPOINT ENTRY POINT 


38H 
RST38H 


THERE IS NO COLD START ENTRY POINT, INITIAL ENTRY 
TO THE MONITOR OCCURS WHEN CONTROL BASIC'S 
QUIT COMMAND IS EXECUTED. 


3 WARM START ENTRY. INITIALIZES THE BREAKPOINT 
; STORAGE POINTER. SAVES ALL REGISTERS EXCEPT 
3 THE PROGRAM COUNTER, BUT DOES NOT DISPLAY THEM. 


; 
MONITR: 


WSTART: 


PUSH 
PUSH 
LD 
JR 


x entry point for Control Basic 
; (visual correspondence only) 
AF ; SIMULATE UPC 
AF i ; UAF 
A, 80H + FLAG: 
COMMON 7 WARM-START ENTRY 


Figure B-l: 2-80 MONITOR SOURCE CODE LISTING 
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0111 ; PRINT CHARACTER. 


0112 ; 
0041 F5 0113 ` PBYTE: PUSH AF 
0042 DBOO 0114 PBYl: IN A, STAT 
0044 £680 0115 AND TBE 
0046 28FA 0116 IR Z,PBY1 
0048 Fl 0117 POP AF 
0049 D301 0118 OUT DATA,A 
004B c9 0119 RET 
0120 ; 
0121 ; 
0122 ; 
0123 ; SELECT DEVICE A & INITIALIZE ITS BAUD RATE, 
0124 ; 
0125 INITTUART: ; ENTRY POINT FOR CONTROL BASIC 
0126 ; (VISUAL CORRESPONDENCE ONLY) 
0127 INIT: 
004C 3E01 0128 LD A,l 
004E D354 0129 OUT BPARLP,A ; SELECT DEVICE A 
0050 D352 0130 OUT BCMNDP, A ; RESET DEVICE B 
0131 ; 
0132 ; 
0133 ; INITIALIZE BAUD RATE OF THE CURRENT DEVICE. 
0134 ; 
0135 ; PUSH CARRIAGE-RETURN TO SELECT THE PROPER BAUD 
0136 ; RATE FOR THE CURRENT TERMINAL, (THE MAXIMUM 
0137 } NUMBER OF CARRIAGE-RETURNS REQUIRED IS FOUR.) 
0139 ; WITH THE CROMEMCO TUART ANY OF THE FOLLOWING 
0140 ; BAUD RATES CAN BE SELECTED: 
0141 ; 19200, 9600, 4800, 2400, 1200, 300, 150, 110. 
0142 ; 
0143 ; TWO CARRIAGE-RETURNS ARE REQUIRED FOR 
0144 ; ANY UART WITH A FIXED BAUD RATE. 
0145 ; 
0052 21BBO3 0146 INITBAUD: LD HL, BAUDRS 
0055 O0EOO 0147 LD C, ABAUDP 
0057 3E11 0148 LD Ar11H } OCTUPLE THE CLOCK 
0059 D302 0149 ITI: OUT ACMNDP, A } & RESET CURRENT DEVICE 
005B EDA3 0150 OUTI 
005D CD7800 0151 CALL GBYTE 
0060 cD7800 0152 CALL GBYTE 
0063 1804 oS JR IT2 ; SKIP AROUND NMI CODE 
4 
(0000) 0155 IF $ GT 66H 
0156 *** ERROR *** CODE OVERLAP } FORCE ASSEMBLY ERROR 
0157 ENDIF 
0158 
0159 NMIJUMP: 
(0066) 0160 ORG 66H ; JUMP FOR NMI RESPONSE 
0066 C3F010 0161 JP NMI ; 
0162 
0069 FEOD 0163 IT2: cP CR ; 
006B 3E01 0164 LD A,l + SLOW THE CLOCK 


Figure B-l: 72-80 MONITOR SOURCE CODE LISTING 
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Program 
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006D 20EA 0165 JR NZ,IT1 
006F C9 0166 RET 
0167 ; 
0168 ; 
0169 ; CHECK INPUT & RETURN WITH DATA IF READY. 
0170 ; 
0070 DBOO 0171 CHKIN: IN A, STAT 
0072 E640 0172 AND DAV 
0074 c8 0173 RET pA 
0075 DBO1 0174 IN A,DATA 
0077 «C9 0175 RET 
0176 ; 
0177 y} 
0178 ; GET CHARACTER FROM INPUT. 
0179 ; 
0078 CD7000 0180 GBYTE: CALL CHKIN 
007B 28FB 0181 IR 2,GBYTE $ 
007D E67F 0182 AND 7FH 
007F C9 0183 RET 
0184 ; 
0185 ; 
0186 ; BREAKPOINT ENTRY. INITIALIZES NOTHING. 
0187 ; SAVES ALL REGISTERS AND DISPLAYS THEM. 
0188 ; 
0080 E3 0189 SVMS: EX (SP) ,BL ; ADJUST BRKPT 
0081 2B 0190 DEC HL 1 RET ADDR 
0082 E3 0191 EX (SP) ‚HL 
0083 F5 0192 PUSH AF ; UAF 
0084 97 0193 SUB A 3 FLAG: 
0194 ; 1 BREAKPOINT ENTRY; 
0195 ; 
0196 ; 
0085 c5 0197 COMMON: PUSH BC + UBC 
0086 47 0198 LD B,A ; ENTRY FLAG 
0087 DS 0199 PUSH DE 7 UDE 
0088 ES 0200 PUSH HL ; UHL 
0201 ; 
0202 ; PLACE SYS STACK AT HIGHEST PAGE OF 
0203 ; AVAILABLE RAM, 
Shoe ? ALLOW ROOM FOR TEMP STORAGE. 
205 ; 
0089 215900 0206 LD HL, OOFFH-TEMPS 
ae 008C 25 0207 COMI: DEC H 
i E 008D 7E 0208 LD A, (HL) 
008E 34 0209 INC (HL) 
008F BE 0210 cP (HL) 1 DID IT CHANGE? 
0090 28FA 0211 JR 2,COM1 
0092 35 nas DEC (HL) ; YES. RESTORE IT, 
’ 
0093 78 0214 LD A,B 1 ENTRY FLAG 
0094 EB 0215 EX DE,HL 
0095 210900 0216 LD HL,9 
0098 39 0217 ADD HL, SP ı ~> UPC, HI BYTE 
0099 010A00 0218 LD BC,10 


MONITOR SOURCE CODE LISTING 
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DE 

DE,HL 

SP, HL 

DE, HL 

BC, DUPC-DUHL+3 
HL,BC 


(HL) ‚0 


Program 


Mar 21, 1982 08:25:01 


; -> UHL,LO ON SYS STK 


; CURRENT SYS SP 


HL = USER SP 
USP 
UIX 
UIY 


we No we se 


SAVE 


ENTRY? 
SKIP IF VIA BP. 
BP PNTR, LO BYTE 


} BP-STACK ENDMARK 


INITIALIZE THE TUART IF ENTRY WAS VIA RESET. 


INTERRUPTS ENABLED? 


u 


+ UIN 
; UAF 
3 UBC’ 


UDE' 
+ UHL" 


~ 


ENTRY WAS VIA A BREAKPOINT 


HL, HEAD 
NC, PMSG 


BC,[['P'+CASE] SHL 8]+86H ; IF BP ENTRY, 


C, SUBR3 


CLEAR ALL BREAKPOINTS 


009C EDB8 0219 LDDR 

0220 ; 
009E 13 0221 INC 
009F EB 0222 EX 
00A0 F9 0223 LD 
00Al EB 0224 EX 
00A2 010B00 0225 LD 
0015 09 0226 ADD 
00A6 ES f 0227 PUSH 
00A7 DDES 0228 PUSH 
00A9 FDES 0229 PUSH 
00AB EB * 0230 EX 
00AC 09 0231 ADD 
00AD 4D 0232 LD 
OOAE 2B 0233 DEC 
OOAF ES s 0234 PUSH 
00B0 DDEL 0235 POP 
00B2 FE01 0236 cP 
00B4 3804 0237 JR 
00B6 71 0238 LD 
0087 23 0239 INC 
00B8 3600 0240 LD 

0241 ; 

0242 ; (A CONTAINS 1.) 

0243 ; 

0244 ; CALL 

0245 ; 
OOBA ED57 0246 COM3: LD 
00BC 67 0247 LD 
OOBD 2E00 0248 LD 
00BF E2C400 0249 JP 
00C2 F3 0250 DI 
00C3 2C 0251 INC 
00C4 ES 0252 COM4: PUSH 
00C5 08 0253 EX 
00C6 F5 0254 PUSH 
00C7 08 0255 EX 
00C8 D9 0256 EXX 
00C9 cs 0257 PUSH 
00CA DS 0258 PUSH 
00CB ES j 0259 PUSH 
00CC DS 0260 EXX 

0261 ; 

0262 ; IF CY IS SET, 
00CD 210C04 0263 LD 
0000 D44E02 0264 CALL 
0003 018650 0265 LD 
0006 DC5703 0266 CALL 

0267 ; 

0268 ; 

0269 ; 

0270 ; 

0271 ; 
0009 DDES 0272 CLBP: PUSH 


Figure B-l: 


IX 


2-80 


; DISPLAY THE PC. 


MONITOR SOURCE 
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OODB El 0273 
00pc 6E 0274 
id 0275 

OODD 7E 0276 
OODE FEOB 0277 
00E0 200A * 0278 
0279 

00E2 34 0280 
00E3 2B 0281 
00E4 56 0282 
0085 2B 0283 
00E6 SE 0284 
00E7 2B 0285 
00E8 EDA8 0286 
00EA 18F1 0287 
0288 

00EC 7D 0289 
00ED 2B 0290 
00EE 77 0291 
0292 

OOEF L11E6FF 0293 
00F2 19 0294 
00F3 F9 0295 
0296 

0297 

0298 

0299 

$ 0300 
00F4 CD8CO1 0301 
00F7 11F700 0302 
OOFA D5 0303 
OOFB 21C603 0304 
OOFE CD4E02 0305 
0306 

0307 

0308 

0309 

0310 

0101 CD1C02 0311 
0104 CB 0312 
0105 D642 0313 
0107 3815 0314 
0109 FEI6 0315 
010B 3011 0316 
O10D 5F 0317 
010E 1600 0318 
0319 

0110 4A 0320 
0111 EB 0321 
0112 29 0322 
0113 19 0323 
0114 SE 0324 
0115 23 0325 
0116 56 0326 


Figure B-l: 


POP HL ; 
LD Lr (AL) ; 
i 
chi: LD A, (HL) ; 
cp BPMRK ; 
IR NZ,CL2 
; 
INC (HL) ; 
DEC HL 
LD D, (HL) 
DEC HL 
LD E, (HL) 
DEC HL 
LDD ; 
JR cLl 
i 
CL2: LD A,L 
DEC HL 
LD (HL) ‚A ; 
; 
LD DE, -LENRGS ; 
ADD HL,DE ; 
LD SP,HL ; 


GET 1-BYTE COMMAND. 
RETURNS VALUE IN HL & JUMPS TO 


CALL CRLF 


CMND: LD DE, CMND 3 
PUSH DE 
CMND1: LD 


HL, PRMPT ; 
CALL PMSG : 


GET THE COMMAND. 


CALL  SKSGO ’ 
RET 2 ; 
SUB 'B'+CASE ; 
JR C, ERROR 
cP Whe! BI EL ' 
IR NC, ERROR 
LD ErA 
LD D,0 

3 

v D c,D ; 

EX DE, HL 
ADD HL, HL ; 
ADD HL, DE ; 
LD E, (HL) 
INC HL 
LD D, (HL) 


Mar 21, 1982 08:25:01 


+ POINTS TO BPSP,LO 


BPSP NOW IN HL 


BP STK EMPTY? 
IF BPMRK, BP IS SET 


BP-ERASED MARK 


; RESTORE MEM CONTENTS 


ADJUST BPSP 
FOR THE BENEFIT 


OF ERROR & ESCPE 
RE-INITIALIZE SP 


THAT ADDR. 


SET-UP RETURN 


RE-ENTRY POINT 
FOR RECURSION 


HL NOW PNTS TO THE COMMAND TABLE. 


DE GETS THE FIRST ALPHA CHARACTER LESS 'B'. 


GET NON-SPACE' 
IF CR, IGNORE. 
< 'B'? 


> 'W'? 


INITIALIZE FOR SUBR 


TIMES 2 
+ TBL ADDR 
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0117 EB 0327 
0118 CD1C02 0328 
O11B FE4D 0329 
011D E9 0330 
0331 
0332 
0333 
0334 
0335 
O11E 3E3F _ 0336 
0120 CD4301 0337 
0123 18B4 0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0125 CDE401 0346 
0128 78 0347 
0129 B2 0348 
012A E603 0349 
012C BL 0350 
012D B3 0351 
012E 20EE 0352 
0353 
0130 ES 0354 
0131 214001 0355 
0134 E3 0356 
0135 CD5902 0357 
0138 E3 0358 
0139 2B 0359 
013A 7C 0360 
013B B5 0361 
013C 20F6 0362 
013E El 0363 
013F 1867 0364 
0365 
0366 
0367 
0368 
0369 
0370 
0371 
0372 
0141 3E20 0373 
0374 
0375 
0376 
0377 
0378 
0143 F5 0379 
0144 E67F 0380 


Figure B-l: 


EX DE, HL 
CALL SKSGO ; NEXT CMND GHAR 
cP 'M'+CASE ; (USED IN SUBST & DISPL) 
JP (HL) 
; 
? 
5 ERROR & ESCAPE., RETURNS TO CMND WITH SP 
; POINTING TO SAVED-REGISTER AREA (UHL'). 
i 
ERROR: LD A,'?' 2 
CALL PCHR 
ESCPE: JR CLBP ; CLEAR ANY BRKPTS 
; 
; PROGRAM PROMS. ABORTS IF DESTINATION 
; IS NOT ON A 1K (400H) BOUNDARY, OR IF SWATH 
; WIDTH IS NOT A MULTIPLE OP” IK. 
? 
; 
PROG: CALL L3NCR 
LD A,B ; ARE INCREMENT & 
OR D ; DESTINATION BOTH 
AND 3 ; MULTIPLES OF 
OR c ; 1024? 
OR E 
ERRV1: JR NZ, ERROR } ERROR VECTOR 
; 
PUSH HL 7 SOURCE 
LD HL, 320 ; # OF ITERATIONS 
PRI: EX (SP) ‚AL 
CALL MVE ; MOVE IT 
z EX (SP) „HL 
DEC HL ; ITERATION CT 
LD A,H 
OR L 
IR NZ,PR1 
POP HL 
JR VREY ; VERIFY IT 


PRINT THE 2 BYTES IN (HL) & (HL-1). 
DECREMENTS HL BY 2. ALTERS A. 
PRESERVES OTHER REGISTERS. 


PRINT SPACE. ALTERS A. 


PACE: LD A,20H + (CONTINUE BELOW) 


PRINT THE CHARACTER IN THE A-REGISTER. 
(CHKS INPUT FOR ESC.) PRESERVES ALL REGISTERS. 


PCHR: PUSH AF ; SAVE THE CHARACTER 
PCl: AND 7FH 


ene se se se en 5e ~e so 
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0146 FEIB 0381 cP ESC 
0148 28DE 0382 JR Z,ESCPE 
014A FET7D 0383 CP ALT ; ALT MODE? 
014C 2805 0384 JR Z, ESCPE 
014E CD7000 0385 CALL CHKIN 
0151 20F1 0386 JR NZ,PCL 
0387 ; 
0153 Fl 0388 PC2: POP AF 
0154 ES 0389 PUSH HL 
0155 F5 0390 PUSH AF M 
0156 E67F 0391 AND 7FH ’ 
0158 CD4100 0392 CALL PBYTE 
015B 21C303 0393 LD HL, LFNN 
O15E FEOD 0394 cP CR 
0160 CC4E02 0395 CALL Z, PMSG 
0163 FE3C 0396 cP Iei 3 RECURSIVE CALL 
0165 200B 0397 JR NZ,PC3 7 ON CMND? 
0167 Fl 0398 POP AF 
0168 3EOD 0399 LD A,CR ; YES, CONVERT 
016A F5 0400 PUSH AF 3 '<' TOA CR. 
016B DS 0401 PUSH DE 
016C c5 0402 PUSH BC 
016D CDFBOO 0403 CALL CMND1 
0170 Cl 0404 POP BC 
0171 DI 0405 POP DE 
0172 Fl 0406 PC3: POP AF 
0173 El 0407 POP HL 
0174 c9 0408 RET 
0409 ; 
0410 ; 
0411 ; GET CHARACTER. RETURNS IT IN A. 
0412 ; ALTERS F. 
0413 ; 
0175 CD7800 0414 GCHR: CALL GBYTE 
0178 CD4301 0415 CALL PCHR 
017B 28F8 0416 JR Z, GCHR ; IF NULL DON'T RETURN 
017D FE61 0417 cP A,61H 
017F D8 0418 RET c 
0180 D620 0419 SUB A,20H » CONVERT TO UPPER CASE 
0182 C9 0420 RET 
0421 ; 
0422 i 


0423 ; COMMAND 
0424 ; EXAMINE INPUT PORT 


0425 ; 
0426 EXMINPUT: 
0183 CDE701 0427 CALL LINCR 
0186 4B 0428 LD CE + PORT NUMBER 
0187 ED78 0429 IN A,(C) 
0189 CD3602 0430 CALL P2HEX 
0431 + (CONTINUE BELOW) 
0432 ? 
0433 ; CRLF. ALTERS A ONLY. 
0434 ; 


Figure B-l: 2-80 MONITOR SOURCE CODE LISTING 
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ERROR 


018C 3E0D 0435 CRLF: LD A,CR 
018E 1883 0436 JR PCHR 
0437 ; 
0438 ; 
0439 ; LOADS HL WITH SOURCE ADDR, BC & DE 
oaao ; WITH THE INCREMENT. ENDS WITH A CRLF. 
0190 97 0442 L2NCRO: SUB A 
0443 ; 5 
0191 CDCA01 Ta L2NCR: CALL LD2N 
445 ; 
0446 ; SKIP INITIAL SPACES. 
0447 ; IF DELIMITER NOT A CR, ERROR 
0448 ; 
0194 CD1D02 0449 SKSGCR: CALL SKSG ; WAIT FOR NON-SPACE 
0197 2095 0450 JR NZ, ERRV1 ; IF NOT CR, 
0199 EB 0451 EX DE, HL 
019A C9 0452 RET 
0453 ; 
0454 ; 
0455 ; PRINT THE NUMBER IN HL, FOLLOWED BY A COLON. 
0456 ; PRESERVES ALL REGISTERS EXCEPT A. 
0457 ; 
019B CDBCO1 pace PCADDR: CALL CRLF 
019E CD3102 0460 PADDR: CALL PNHL 
O1A1 3E3A 0461 LD A,':' 
01A3 1895 0462 JR PCHR 
0463 ; 
0464 ; 
0465 ; COMMAND 
0466 ; a 
01A5 CDE401 0.87 VERIF: CALL L3NCR ; GET 3 OPERANDS 
04 ? 
0469 ; COMPARES TWO AREAS OF MEMORY. ENTER WITH 
0470 ; SOURCE IN HL, DESTINATION IN DE & COUNT 
0471 ; IN BC. ALTERS ALL REGISTERS. 
0472 ; 
O1A8 1A 0473 VRPY: LD A, (DE) 
01A9 EDAL 0474 CPI + COMPARE TO SOURCE 
01AB 2B 0475 DEC HL 
O1AC C43102 0476 CALL NZ, PNHL + PRINT SOURCE ADDR 
O1AF C42802 0477 CALL NZ , PSNM ; & CONTENTS 
01B2 EB 0478 EX DE, HL 
01B3 C42802 0479 CALL NZ,PSNM ı & DEST CONTENTS 
0186 C42E02 0480 CALL NZ, PSNHL ; & DEST ADDR 
0189 c48C01 0481 CALL NZ ,CRLF 
Q1BC EB 0482 EX DE,HL 
O1BD 23 0483 INC HL 
O1BE 13 0484 INC DE 
OlBF EO 0485 RET PO ? IF BC=0, DONE. 
01C0 1856 0486 JR VREY 
0487 ; 
0488 ; 


Figure B-l: 2-80 


MONITOR SOURCE CODE LISTING 
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0489 
0490 
01C2 CDE401 0491 
01C5 cD5902 0492 
01C8 18DE 0493 
0494 
0495 
0496 
0497 
0498 
0499 
0500 
0501 
0502 
O1CA CDEDOL 0503 
O1CD EB 0504 
O1CE CDIDO2 0505 
01D1 FE53 0506 
01D3 2005 0507 
0508 
01D5 CDECO1 0509 
01D8 1807 0510 
0511 
OIDA CDEDOL 0512 
01DD B7 0513 
O1DE ED52 0514 
O1E0 23 0515 
O1E1 44 0516 
OlE2 4D 0517 
01E3 C9 0518 
0519 
0520 
0521 
0522 
0523 
01E4 CDCAO1 0524 
0525 
0526 
0527 
0528 
0529 
0530 
0531 
0532 
Q1E7 CDEDOL 0533 
O1EA 18A8 0534 
0535 
0536 
0537 
0538 
0539 
0540 
0541 
0542 


Figure B-1: 


Program 


Mar 21, 1982 08:25:01 


OPERANDS 
MOVE IT 


Is 's'). 
A. 


N1 TO HL, DELIM TO A 
SAVE N1 IN DE 

GET NEXT NON-SPACE 
SWATH? 


YES. INCREMENT TO HL. 


INCREMENT 

CLEAR CY 

N2-N1 

INCLUDE END POINT 


BC GETS THE INCRM 


7 COMMAND 

j 

MOVE: CALL L3NCR 3 
CALL MVE ; 
IR VRFY 

; 

' 

; 

; LOAD TWO NUMBERS. LOADS DE WITH THE BEGINNING 

; ADDR, Nl. LOADS BC & HL WITH THE INCREMENT 

} N2-NI+l (OR WITH N2 IF THE OPR 

; RETURNS WITH LAST DELIMITER IN 

? 

; 

LD2N: CALL  GNHL ; 
EX DE, HL ; 
CALL SKSG ; 
CP 'S'+CASE ; 
IR NZ,L2N1 

; 
CALL GNHLO : 
IR L2N2 

1 

L2NI: CALL GNHL ; 
OR A ; 
SBC HL, DE ; 
INC HL ; 

L2N2: LD B,H 
LD CL } 
RET 


EM we se ~e se se xe ~e ~e [Ise =e ~e ~e ~o 


~e Se se Se se ~e 5e ~e 


INCR: CALL 


LOAD 3 OPERANDS. HL GETS THE SOURCE, BC 
THE INCREMENT, AND DE THE 3RD OPERAND. 


3NCR: CALL LD2N 


(CONTINUE BELOW) 


ENTER WITH SPACE OR THE FIRST DIGIT 
OF A NUMBER IN A. LOADS HL WITH 
WITH A NEW NUMBER & THEN EXCHANGES 


DE & HL, FINISHES WITH A CRLF. 


GNHL ? 
JR SKSGCR 3 


CLEARS HL. IF ENTERED WITH HEX 


SKIP SPACES, LOAD HL 
WAIT FOR A CR 


CHARACTER IN A, 


SHIFTS IT INTO HL. O/W, IGNORES LEADING 
SPACES. FIRST CHARACTER MUST BE HEX. CONTINUES 
SHIFT UNTIL A NON-HEX CHARACTER RECEIVED & THEN 


RETURNS WITH THE LATTER IN A. 
PRESERVES B,C,D,E. 


Z-80 MONITOR SOURCE CODE LISTING 
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OlLEC 


O1ED 
OLEE 


0lF1 


01F4 
O1F7 
O1FA 
O1FD 
0200 
0201 
0203 
0204 


0205 
0206 
0208 
0209 
020B 
020C 
020E 
0210 
0212 
0213 


0215 
0216 
0217 
0218 
0219 
021A 
021B 


021C 


021D 
021E 
0221 


97 


c5 
210000 


CD1DO2 


CDO502 
DA1EO1 
CD7501 
cD0502 
78 
30F7 
cl 

cg 


47 
D630 
D8 
C6E9 
D8 
D6FA 
3003 
c607 
D8 
C60A 


29 
29 
29 
29 
B5 
6F 
c9 
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B7 
cc7501 
FE20 


0543 
0544 
0545 
0546 
0547 
0548 
0549 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
0558 
0559 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0568 
0569 
0570 
0571 
0572 
0573 
0574 
0575 
0576 
0577 
0578 
0579 
0580 
0581 
0582 
0583 
0584 
0585 
0586 
0587 
0588 
0589 
0590 
0591 
0592 
0593 
0594 
0595 
0596 


Figure B-l: 


: 
; 
GNHLO: SUB A 
; 
GNHL: PUSH BC 7 SAVE 
LD HL,0 ; CLR BUFFER 
; STRIP LEADING SPACES & GET CHARACTER 
CALL SKSG 
} FIRST CHARACTER MUST BE HEX 
CALL HEXSH 3 IF HEX, SHIFT INTO HL 
JP C, ERROR + O/W, ERROR 
GNI: CALL GCHR 
CALL HEXSH ; IF HEX SHIFT INTO HL 
LD A,B ; RESTORE CHARACTER 
JR NC,GN1 ; IF HEX, CONTINUE 
POP BC ; IF NON-HEX, DONE 
RET 
; 
; 
; IF A CONTAINS HEX CHARACTER, SHIFTS BINARY EQUIVALENT 
; INTO HL. IF NOT HEX, RET WITH CY SET. SAVES 
» ORIGINAL CHARACTER IN B 
; 
HEXSH: LD B,A 
SUB dj Ec 0? 
RET C 
ADD 'O'=['G'+CASE] 
RET C 
SUB 'A'='G' 
JR NC, HX1 ; OK IF >= ‘At 
ADD ['A'+CASE]-['9'+1 
RET c 
AX]: ADD "ot+1-'0' 
; THE A-REGISTER NOW CONTAINS THE HEX DIGIT IN BINARY. 
+ (THE HIGH-ORDER NIBBLE OF A IS 0.) 
AXSH4: ADD HL, HL ; SHIFT 4 BITS INTO HL 
ADD HL, HL 
ADD HL, HL 
ADD HL, BL 
OR L 
LD L,A 
RET 
; 
; 
; RETURNS WITH A NON-SPACE IN THE A-REGISTER. 
; IF ENTERED WITH A-REGISTER CONTAINING A NULL 
+ OR A SPACE, GETS NEW CHARACTERS UNTIL FIRST 
; NON-SPACE OCCURS. ALTERS AF. 
j 
SKSGO: SUB A 
j 
SKSG: OR A 1 DOES A CONTAIN NULL? 
SKl: CALL 2,GCHR 
cP 208 + SPACE? 
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CROMEMCO 280 MONITOR 


Program Listing 


0223 
0225 
0227 


0228 


022B 
022C 


022E 


0231 
0232 
0235 


0236 
0239 
023A 
023B 
023C 
023D 
023E 
023F 
0241 
0243 
0245 
0247 
0249 
024C 
024D 


28F9 
FEOD 
c9 


cD4101 


7E 
1808 


CD4101 


TC 
CD3602 
7D 


CD3A02 
iF 


0597 
0598 
0599 
0600 
0601 
0602 
0603 
0604 
0605 
0606 
0607 
0608 
0609 
0610 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0618 
0619 
0620 
0621 
0622 
0623 
0624 
0625 
0626 
0627 
0628 
0629 
0630 
0631 
0632 
0633 
0634 
0635 
0636 
0637 
0638 
0639 
0640 
0641 
0642 
0643 
0644 
0645 
0646 
0647 
0648 
0649 
0650 


JR 
cp 
RET 


TO BY HL. 


SNM: CALL 
(CONTINUE 


PRESERVES 


"Je ve Se we se IJa se se we se se 


NM: LD 
JR 


PRINT THE 
PRESERVES 


SNHL: CALL 


ee re 


bard 
= 
E 


LD 
CALL 
LD 


PRINT THE 
PRESERVES 


tJ we me me we i 


2HEX: CALL 
PIHEX: RRA 


PHI: ADD 


u... 


2,5Kl 
CR 


PRINT SPACE FOLLOWED BY THE NUMBER POINTED 


ALTERS A ONLY. 


SPACE 
BELOW) 


PRINTS THE NUMBER POINTED TO BY HL. 


ALL REGISTERS BUT A. 


A, (HL) 
P2HEX 


NUMBER IN HL. 
ALL BUT A. 


SPACE 


A,H 
P2HEX 
A,L 

+ (CONTINUE BELOW) 


NUMBER IN THE A-REGISTER. 
ALL REGISTERS. 


P1HEX 


OFH + MASK 
3 <= 9? 


; A THRU F 
30H 7 ASCII BIAS 
; PRINT IT 


PRINT MESSAGE, ENTER WITH ADDR OF MSG 
IN HL. THE MESSAGE IS TERMINATED 
AFTER PRINTING A CHARACTER WHOSE 
PARITY BIT WAS SET. 


Figure B-l: 2-80 MONITOR SOURCE 
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024E 
024F 
0250 
0251 
0254 
0255 
0257 
0258 


0259 
025A 
025B 
025C 
025E 
025F 
0260 
0261 


0262 
0265 
0268 
026A 
026C 
026E 
026F 
0270 
0273 
0275 
0276 
0278 
0279 


ES 
DS 
c5 
EDBO 
cl 
D1 
El 
cg 


010006 
CD1D02 
282F 
PE2F 
2002 
4F 


0651 
0652 
0653 
0654 
0655 
0656 
0657 
0658 
0659 
0660 
0661 
0662 
0663 
0664 
0665 
0666 
0667 
0668 
0669 
0670 
0671 
0672 
0673 
0674 
0675 
0676 
0677 
0678 
0679 
0680 
0681 
0682 
0683 
0684 
0685 
0686 
0687 
0688 
0689 
0690 
0691 
0692 
0693 
0694 
0695 
0696 
0697 
0698 
0699 
0700 
0701 
0702 
0703 
0704 


Figure B-l: 


PMSG: 


PS1: 


E: 


PUSH 
LD 
INC 
CALL 
RLA 
JR 
POP 
RET 


PUSH 
PUSH 
PUSH 
LDIR 
POP 
POP 
POP 
RET 


COMMAND 


AF 

A, (HL) 
HL 
PCHR 


NC, PS1 
AF 


PRESERVES FLAGS, INCREMENTS HL. 


Mar 21, 1982 08:25:01 


SAVE 


LAST CHARACTER? 
IF NOT, LOOP 


MOVE FROM ONE LOCATION TO ANOTHER. ENTER 
WITH SOURCE ADDR IN HL, DEST IN DE, BYTE 
COUNT IN BC. 


PRESERVES ALL REGISTERS. 


HL 
DE 
BC 


BC 
DE 
AL 


+ 
; 
d 


SOURCE 
DEST 


BYTE COUNT 


GO <CR> EXECUTION BEGINS AT USER PC, 


COMMAND 


GO <ADDR1>/<ADDR2> ... <ADDRN> 


AT ADDR2,...,ADDRN. 


; EXECUTION BEGINS AT ADDR1 WITH BREAKPOINTS SET 
; 
j 
GO: 

3 B GETS NBRKPT+] (MAX. NUMBER OF BP + 1) 

; 


C, THE BREAKPOINT FLAG, GETS 0 (NO BP SET) 
BC,{[NBRKPT+1] SHL 8] +0 


GO3: 


SKSG 
2,RETN 
yt 

NZ ,GO3 
C,A 

A 
GNAL 
5,C 
DE,HL 
Ix 

HL 
2,605 


2-80 


d 
7 
3 


; 


~ 


MONITOR SOURCE CODE LISTING 


WAIT FOR NON-SPACE 
RETN IF CR 

BP? 

SET BRRPT FLAG (2FH) 


GET ADDR 
FLAG SET? 


JUMP IF NO BP 
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Program 


Mar 21, 1982 08:25:01 


IF TOO MANY BP, 
ERROR. 
HL = BPSP 


BUMP BPSP 
DE=BPSP, HL= BP ADDR 


RST INSTRUCTION 
HL=BPSP 


BP ADDR TO STACK 


; PUNCTUATION (BP SET) 


; BACK FOR MORE 


3 STRIP ADDR FROM STK 
; UHL! 
1 UDE" 
3 UBC! 
; UAF' 


+ SHOULD INTERRUPTS BE ENABLED? 
> YES 


Ury 
UIX 
USP 


un 


0705 ; 
027B 05 0706 DEC B 
027C CAIEOl 0707 JP Z, ERROR 
O27F 6E 0708 LD L, (HL) 
0709 ; 
0280 23 0710 INC HL 
0281 EB 0711 . EX DE, HL 
0282 EDAO 0712 LDI 
0284 28 0713 DEC HL 
0285 36F7 0714 LD (HL) „OCTH+RSTLC 
0287 EB 0715 EX DE,HL 
0288 73 0716 LD (HL),E 
0289 23 0717 INC HL 
028A 72 0718 LD {HL),D 
028B 23 0719 INC HL 
028C 360B 0720 LD (HL) ,BPMRK 
028E DD7500 0721 LD (1X) ,L 
0291 18D2 0722 JR GOL 
0723 ; CHANGE USER PC 
0293 2B 0724 GOS: DEC HL 
0294 72 0725 LD (HL) ,D 
0295 2B 0726 DEC HL 
0296 73 0727 LD (BLYE 
0297 18cc 0728 JR GO1 
0729 ; 
0299 El 0730 RETN: POP HL 
029A El 0731 POP HL 
029B DI 0732 POP DE 
029C ci 0733 POP BC 
0290 Fl 0734 POP AF 
029E D9 0735 EXX 
029F 08 0736 EX AF,AF! 
0737 =; 
02A0 Fl 0738 POP AF 
02Al ED47 0739 LD I,A 
02A3 F3 0740 DI 
02A4 3001 0741 JR NC, RTI 
02A6 FB 0742 EI 
0743 ; IFP NOW RESTORED 
02A7 FDEL 0744 RTI: POP TY 
02A9 DDEL 0745 POP IX 
O2AB D1 07 46 POP DE 
0747 ; 
0748 ; COPY THE REMAINDER OF THE SYS STACK 
0749 ; TO THE USER STACK. IF THIS TRANSFER 
0750 ; IS MADE WITHOUT ERROR, SWITCH TO THE 
0751 ; USER STACK. OTHERWISE, RETAIN THE 
0752 ; SYSTEM STACK. 
0753 ; 
02AC 210A00 0754 LD HL,10D 
O2AF 45 0755 LD B,L 
02B0 39 0756 ADD HL, SP 
02B1 EB 0757 EX DE, HL 
02B2 1B 0758 RT2: DEC DE 


Figure B-1: 


2-80 MONITOR SOURCE CODE LISTING 
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02B3 2B 0759 
02B4 1A 0760 
02B5 77 0761 
02B6 BE 0762 
02B7 2003 0763 
02B9 10F7 0764 
02BB F9 0765 
0766 
02BC El 0767 
02BD DI 0768 
02BE cı 0769 
02BF Fl 0770 
02C0 C9 0771 
0772 
0773 
0774 
0775 
0776 
0777 
0778 
0779 
0780 
0781 
0782 
02C1 018041 0783 
02C4 203F 0784 
0785 
0786 
02C6 cp9001 0787 
02C9 1610 0788 
02CB CD9BO1 0789 
02CE CD2802 0790 
02D1 EDAL 0791 
02D3 E28C01 0792 
02D6 15 0793 
02D7 28F0 0794 
02D9 7A 0795 
02DA E603 0796 
02DC CC4101 0797 
02DF CCALOL 0798 
02E2 18EA 0799 
0800 
0801 
0802 
0803 
0804 
0805 
0806 
0807 
0808 
0809 
0810 
0811 
0812 


Figure B-l: 


Oie vo me Me ne we we Re Se se 


Is 
; 
; 
DSP 
DSP 


DM2: 


Mar 21, 1982 08:25:01 


DEC HL 

LD A, (DE) 

LD (HL) rA 

cP (HL) 

JR NZ,RT3 

DJNZ RT2 

LD SP,HL 
3 POP HL 

POP DE 

POP BC 

POP AF 

RET 


COMMAND. DISPLAY REGISTERS. 
DR 
COMMAND, DISPLAY MEMORY. 


DM <STARTING ADDR> <ENDING ADDR OR SWATH> 


PL: LD BC,[[{'A'+CASE] SHL 8]+80H ; [FOR DR} 
JR NZ,SUBR2 ; IF NOT 'M', DR 
M: CALL L2NCRO GET OPERANDS 


Ml: LD D,16 
CALL PCADDR 


BYTE COUNT 
ADDRESS 


CALL PSNM MEM CONTENTS 
CPI INC HL & DEC BC 
JP PO, CRLF 

DEC D 

JR %,DSPM1 

LD A,D 

AND 3 


CALL Z, SPACE 

CALL 2, SPACE 

JR DM2 
COMMAND. SUBSTITUTE MEMORY LOCATION. 
SM <ADDR> 
COMMAND, SUBSTITUTE USER-REGISTER. 
S<REGISTER NAME> 
REGISTER NAMES: P [PC], S [SP], 


A, P, B, C, D, E, H [HL], 
I, N [IFF], X [IX], Y [IY]; 
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0813 ; A',F',BY,C',D',E',H' [HL'], 
0814 ; 
08215 ; 
02E4 2016 0816 SUBST: JR NZ,SUBR 
0817 ; 
0818 ; 
02E6 97 0819 SUBM: SUB A 
02E7 47 0820 LD B,A 
02E8 CDE701 0821 CALL LINCR 
02EB EB 0822 EX DE,HL 
02EC CC9IBOLl 0823 SMl: CALL 2, PCADDR 
O2EF CC4101 0824 CALL 2,SPACE 
0825 ; PRINT CURRENT VALUE, REQUEST 
0826 ; PRINT IT IF GIVEN 
02F2 CD6603 0827 CALL GSUBV 
02F5 C8 0828 RET zZ 
02F6 23 0829 INC HL 
02F7 3807 0830 LD A,7 
02F9 A5 0831 AND L 
02FA 18F0 0832 JR SM1 
0833 ; 
0834 ; 
O2FC 47 0835 SUBR: LD B,A 
O2FD CD7501 0836 CALL GCHR 
0300 FE27 0837 CP pees 
0302 2002 0838 JR N2,SR2 
0304 0C 0839 INC g 
0305 97 0840 SUBR2: SUB A 
0306 CDY401 0841 SR2: CALL SKSGCR 
0309 78 0842 SR3: LD A,B 
030A D641 0843 SUB "A'+CASE 
030C DALEOL 0844 JP C, ERROR 
030F FE19 0845 cp 'Y'-'A'+1 
0311 D21E01 0846 JP NC, ERROR 
0314 SF 0847 LD ErA 
0315 1600 0848 LD D,0 
0317 21F303 0849 LD HL,RGTBL 
031A 19 0850 ADD HL,DE 
031B 7E 0851 LD A,(HL) 
031C B7 0852 OR 
031D 2833 0853 JR Z, SR6 
031F 1E00 0854 LD E,0 
0321 CB41 0855 BIT 0,C 
0323 2806 0856 JR Z, SR4 
0325 CB76 0857 BIT PF, (HL) 
0327 2829 0858 JR Z, SR6 
0329 1E10 0859 LD E,DUAF-DUAF2 
032B E6IF 0860 SR4: AND 1PH 
032D 83 0861 ADD E 
032E SF 0862 LD E,A 
032F C5 0863 PUSH BC 
0330 78 0864 LD A,B 
0331 CD4301 0865 CALL PCHR 
0334 FE48 0866 cP 'H'+CASE 


Figure B-l: 17-80 


ka 


Program 


Mar 21, 1982 08:25:01 


3 IN NOT 'M', SR 


1-BYTE MASK 


; HL GETS ADDR 


NEW VALUE & 


IF CR, DONE. 


PRINT ADDRESS IF IT 
IS A MULTIPLE OF 8 


TURN ON THE PRIME-FLAG 


WAIT FOR CR 


; CHECK THE RANGE 


; IF ENTRY = 0, SKIP 
+ PRIME? 


+ YES. PRIMEABLE REGISTER? 
; IF NOT, SKIP. 


; STRIP FLAGS FROM ENTRY 


SAVE 
PRINT REGISTER NAME 


MONITOR SOURCE CODE LISTING 
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0336 
0338 
033B 
033D 
033F 
0341 
0343 
0346 
0347 
0349 
034A 
034C 
034F 
0350 
0351 


0352 
0353 
0354 
0356 
0357 
035A 
035C 
035E 
035F 
0361 
0363 


0365” 


0366 
0369 
036B 
036D 
036E 
0371 
0372 
0373 
0375 
0377 
037A 
037D 
037F 
0382 
0384 
0385 


3E4C 


ED52 
CD6603 
78 

cl 

ca 


04 
07 
30B3 
07 
CD8C01 
3805 
0641 
oc 
18A8 
CB41 
28A4 
c9 


3E2E 
CD4301 
CD7501 
FE2F 
DC4301 
380C 
EB 
CDEDO1 


0867 
0868 
0869 
0870 
0871 
0872 
0873 
0874 
0875 
0876 
0877 
0878 
0879 
0880 
0881 
0882 
0883 
0884 
0885 
0886 
0887 
0888 
0889 
0890 
0891 
0892 
0893 
0894 
0895 
0896 
0897 
0898 
0899 
0900 
0901 
0902 
0903 
0904 
0905 
0906 
0907 
0908 
0909 
0910 
0911 
0912 
0913 
0914 
0915 
0916 
0917 
0918 
0919 
0920 


SR5: 


SR6: 


SUBR3: 


SRB: 


Oe se Me se se se we se 


SUBV: 


GS1: 


GS2: 


CALL 
JR 
LD 
INC 
JR 
BIT 
JR 
RET 


CALL 
BIT 
JR 
DEC 
CALL 
LD 
RLCA 
JR 
LD 
CALL 
CALL 
CP 
CALL 
JR 
EX 
CALL 


A,'L'+CASE 
Z, PCHR 


'L'+CASE XOR '=! 


0,C 
Z,SR5 
Ayers 
PCHR 
B, (HL) 
IX 

HL 

HL DE 
GSUBV 
A,B 
BC 

2 


B 
NC,SR3 


CRLF 

C,SR8 

B, 'A'+CASE 
C 

SR3 

0,C 

2,5R3 


PNM 
B2F,B 
2,681 
HL 
PNM 
A,C 


C,GS2 
Are! 
PCHR 
GCHR 
MES 
C, PCHR 
C, G83 
DE, HL 
GNHL 


Figure B-l; 7-80 


Program 


Mar 21, 1982 08:25:01 


CLEAR CY, A= '=', 
PRIME? 


; SAVE ORIGINAL ENTRY 


+ STACK FRAME 

; HL -> USER REGISTER 

+ PRINT VALUE, REQUEST NEW 
; SAVE 


7 DONE IF CR 


; NEXT REGISTER 
Y OR H? 


i 
: 
; IF NEITHER, LOOP 
; YES, IS IT Y? 
; [ENTRY FOR DISPLAYING PC] 


YES, IT IS Y: 
TURN ON PRIME-FLAG 


u 


NO. H OR H'? 
IF H, LOOP. 
IT IS H'. DONE. 


we 80 se 


ENTER WITH HL POINTING TO MEMORY & 

B CONTAINING THE 1-BYTE OR 2-BYTE FLAG. 

PRINTS SPACE, CONTENTS OF (HL), & ALSO (HL-1) FOR 
2-BYTE REGISTERS, GETS SUBSTITUTION VALUE & LOADS IT. 
RETURNS WITH 2-FLAG SET IF THE DELIMITER IS 

A CARRIAGE-RETURN. 
PRESERVES BC & HL. 


PRINT (HL) 
3 2-BYTE REGISTER? 


; LO BYTE 
+ SUBST-OR-DISPLAY FLAG 


; IF DISPLAY, EXIT. 


; SUBSTITUTION? 
; IF NOT, PRINT ANOTHER. 


NEW VALUE 


~. 


MONITOR SOURCE CODE LISTING 
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0388 EB 0921 EX DE, HL 
0389 73 0922 LD (HL) ,E 
038A CB6B 0923 BIT B2F,B 
038C 2802 0924 IR 2,683 
038E 23 0925 INC HL 
038F 72 0926 LD {HL),D 
0390 FEOD 0927 GS3: cP CR 
0392 C44101 0928 CALL NZ, SPACE 
0395 c9 0929 RET 
0930 ; 
0931 ; 
0932 ; ...SUBDM 00 7E 5 585 BY 5 100 DBE++ 
0933 ; 
0934 ; 
0935 ; COMMAND 
0336 + READ BINARY INPUT FROM DATA PORT 
0396 CD9101 0938 READB: CALL L2NCR ; GET MEM ADDRS 
0399 CD7000 0939 RBl: CALL CHKIN 7 GET INPUT 
039C 28FB 0940 JR 7, RB1 
039E 77 0941 LD (HL) ,A ; TO MEM 
039F EDAL 0942 CPI 
03Al E0 0943 RET PO 
03A2 18F5 0944 IR RB1 
0945 ; 
0946 ; 
0947 ; COMMAND 
0948 ; WRITE BINARY OUTPUT TO DATA PORT 
0949 ; 
03A4 CD9101 0950 WRITB: CALL L2NCR ; GET MEM ADDRS 
03A7 7E 0951 WBl: LD A, (HL) 
03A8 CD4100 0952 CALL PBYTE 
03AB EDAl 0953 CPI 
O3AD EO 0954 RET PO 
O3AE 18F7 0955 JR WBL 
0956 ; 
0957 ; 
0958 ; COMMAND 
HR 1 OUT <DATA-BYTE> <PORT NNUMBER> 
; 
03B0 CDEDOL 0961 OUTP: CALL GNHL 
03B3 EB 0962 EX DE, HL 7 E GETS DATA 
03B4 CDE701 0963 CALL LINCR ; GET PORT NUMBER 
0964 ; 
03B7 4B 0965 LD C/E 1 TOC 
03B8 ED69 0966 our (C),L 
O3BA C9 . 0967 RET 
0968 ; 
0969 ; 
0970 ; BAUD RATES, ; 
0971 ; WITH THE CROMEMCO TUART: 19200, 9600, 4800, 
0972 ; 2400, 1200, 300, 150, 110. 
0973 +; 
0974 ; 


Figure B-l: 2-80 MONITOR SOURCE CODE LISTING 
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O3BB 94CEA292 Hab BAUDRS: DB 94H,0CEH,0A2H,92H,88H,84H,82H,1 
0977 ; 
03C3 0A0080 0978 LENN: DB LF,0,0 OR 80H 
0979 ; 
0980 ; 
03C6 BA 0981 PRMPT: DB ‘s' OR 80H 
0982 ; THE COMMAND TBL MUST IMMEDIATELY FOLLOW 
0983 ; THE PROMPT MESSAGE — 
03C7 5204 0984 DW CBRSTART 7 GOTO BASIC (RSTART) 
03C9 1E01 0985 DW ERROR FE 
03CB C102 0986 DW DISPL + DISPLAY: DM, DR 
03CD 8301 0987 DW EXMINPUT ; EXAMINE INPUT PORT 
O3CF 1E01 0988 DW ERROR 7 F 
03D1 6202 0989 DW GO » GO; GO/WITH BREAKPOINTS 
03D3 1E01 0990 DW ERROR 78 
03D5 5200 0992 DW INITBAUD ; INITIALIZE BAUD RATE 
03D7 1EO1 0992 DW ERROR og 
03D9 1E01 0993 DW ERROR 7K 
03DB 1E01 0994 DW ERROR 7L 
03DD C201 0995 DW MOVE » MOVE A BLOCK OF MEMORY ~ 
O3DF 1E01 0996 DW ERROR ; NULLS 
03E1 B003 0997 DW OUTP ; OUTPUT 
0383 2501 0998 DW PROG + PROGRAM 
03E5 1E01 0999 DW ERROR 7Q 
03E7 9603 1000 DW READB ; READ BINARY OR ASCII 
O3E9 E402 1001 DW SUBST ; SUBSTITUTE: SM, SA, SB, ETC. 
03EB 1E01 1002 DW ERROR FT 
03ED 1501 1003 DW ERROR ; UART: UA, UB 
03EF A501 1004 DW VERIF } VERIFY BLOCKS OF MEMORY 
O3F1 A403 1005 DW WRITB + WRITE BINARY OR ASCII 
1006 ; 
(0040) 1007 PM: EQU 1 SHL PF + PRIMEABLE-REGISTER MASK = 
(0000) 1008 BIM: EOU 0 ; 1-BYTE REGISTER MASK 
(0020) 1009 B2M: EOU 1 SHL B2F + 2-BYTE REGISTER MASK 
(0080) tote CRM: EQU 1 SHL CRF 7 CARRIAGE-RETURN MASK 
i 
03F3 43 1012 RGTBL: DB -DUAF OR PM ; A 
O3F4 45 1013 DB -DUBC OR PM 7B 
03F5 46 1014 DB “DUBC#1 OR PM ; C 
03F6 47 1015 DB -DUDE OR PM 7D 
03F7 48 1016 DB -DUDE+1 OR PM ; E 
O3F8 44 1017 DB -DUAF+L OR PM ; F 
03F9 00 1018 DB 0 
O3PA E9 1019 DB -DUHL OR PM OR B2M OR CRM ; H [HL] = 
03FB 11 1020 DB -DUIN OR B1M ‚ı 
03FC 00 1021 DB 0 
03FD 00 1022 DB 0 
O3FE 00 1023 DB 0 
O3FF 00 1024 DB 0 
0400 12 1025 DB ~DUIN+1 OR BIM ; N [INTERRUPT FF] 
0401 00 1026 DB 0 
0402 21 1027 DB -DUPC OR B2M 7 PC 
0403 00 1028 DB 0 


Figure B-l: 2-80 MONITOR SOURCE CODE LISTING 
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CROMEMCO 280 Macro Assembler version 03.08 
CROMEMCO Z80 MONITOR 
Program Listing 


Program 


Mar 21, 1982 08:25:01 


0404 00 1029 DB 0 

0405 2B 1030 DB -DUSP OR B2M ; SP 

0406 00 1031 DB 0 

0407 00 1032 DB 0 

0408 00 1033 DB 0 

0409 00 1034 DB 0 

040A 2D 1035 DB ~DUIX OR B2M 7 X [IX] 

040B AF 1036 DB -DUIY OR B2M OR CRM ; Y [IY] 
1037 ; 
1038 ; 

040C 0D0D4352 1039 HEAD: DB CR,CR,'CROMEMCO SCCMO','N' OR 80H 
1040 ; 

(041C) 1041 lastbyte: equ $-1 

Errors 0 

Range Count 1 

CROMEMCO 280 Macro Assembler version 03.08 Mar 21, 1982 08:25:01 

CROMEMCO 280 MONITOR 

Symbol Value Defn References 

ABAUDP 0000 0016 0147 

ACMNDP 0002 0015 0149 

ALT 007D 0037 0383 

APARLP 0004 0017 

BIM 0000 1008 1020 1025 

B2F 0005 0030 0906 0923 1009 

B2M 0020 1009 1019 1027 1030 1035 1036 

BAUDRS 03BB 0975 0146 

BCMNDP 0052 0018 0130 

BPARLP 0054 0019 0129 

BPMRK 000B 0026 0277 0720 

BPSTOR 0016 0024 0025 

CASE 0000 0029 0265 0313 0329 0506 0569 0573 0783 0843 0866 0867 0869 0889 

CBASIC 0423 0071 0072 0075 

CBRSTART 0452 0072 0984 

CHKIN 0070 0171 0180 0385 0939 

CLl 00DD 0276 0287 

CL2 OOEC 0289 0278 

CLBP 00D9 0272 0338 

CMND 00F7 0302 0302 

CMND1 OOFB 0304 0403 

COM1L 008C 0207 0211 

COM3 00BA 0246 0237 

COMA 00C4 0252 0249 

COMMON 0085 0197 0108 

CR 000D 0034 0163 0394 0399 0435 0598 0927 1039 1039 

CRF 0007 0032 1010 

CRLF Q18C 0435 0301 0458 0481 0792 0887 

CRM 0080 1010 1019 1036 

DATA 0001 0014 0118 0174 

DAV 0040 0020 0172 

DISPL 02C1 0783 0986 

DM2 02CE 0790 0799 

DSPM 02C6 0787 

DSPM1 02C9 0788 0794 

DUAF FFFD 0043 0859 1012 1017 

DUAF2 FFED 0051 0859 

DUBC FFFB 0044 1013 1014 

DUBC2 FFEB 0052 

DUDE FFF9 0045 1015 1016 

DUDE2 FFE9 0053 

DUHL FEP? 0046 0225 1019 

DUHL2 PRE? 0054 0056 

DUIN FFEF 0050 1020 1025 

DUIX FFF3 0048 1035 

DUIY FFFl 0049 1036 

DUPC FFFF 0042 0056 0225 1027 

DUSP FFF5 0047 1030 

ERROR O11E 0336 0314 0316 0352 0553 0707 0844 0846 0985 0988 0990 0992 0993 0994 0996 0999 1002 1003 

ERRV1 012E 0352 0450 

ESC 001B 0036 0381 

ESCPE 0123 0338 0382 0384 

EXMINPUT 0183 0426 0987 

GBYTE 0078 0180 0151 0152 0181 0414 


Figure B-l: 7-80 
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CROMEMCO 280 Macro Assembler version 03.08 


CROMEMCO 280 MONITOR 


Symbol 


INITBAUD 
INITTUAR 
ITı 

IT2 
LINCR 
LAN1 
L2N2 
L2NCR 
L2NCRO 
L3NCR 
lastbyte 
LD2N 
LENRGS 
LF 

LFNN 
MONITR 
MOVE 
MVE 
NBRKPT 
NMI 
NMIJUMP 
OUTP 
P1HEX 
P2HEX 
PADDR 
PBY1 
PBYTE 
Pcl 

PC2 

PpC3 
PCADDR 
PCHR 

PF 

PHI 

PM 

PMSG 
PNHL 


Value 


0175 
O1FA 
O1ED 
O1EC 
0262 
0265 
0270 
0293 
0371 
037F 
0390 
0366 
040C 
0205 
0213 
0215 
004C 
0052 
004C 
0059 
0069 
01E7 
O1DA 
O1E1 
0191 
0190 
01E4 
041C 
O1CA 
001A 
000A 
03C3 
003B 
01C2 
0259 
0005 
10F0 
0065 
03B0 
023A 
0236 
019E 
0042 
0041 
0144 
0153 
0172 
019B 
0143 
0006 
0247 
0040 
024E 
0231 


Defn 


0414 
0554 
0547 
0545 
0689 
0693 
0699 
0724 
0910 
0917 
0927 
0905 
1039 
0566 
0575 
0578 
0127 
0146 
0125 
0149 
0163 
0533 
0512 
0516 
0444 
0442 
0524 
1041 
0503 
0056 
0035 
0978 
0103 
0491 
0669 
0023 
0069 
0159 
0961 
0632 
0630 
0460 
0114 
0113 
0380 
0388 
0406 
0458 
0379 
0031 
0641 
1007 
0655 
0622 


Figure B-l: 


References 


0416 
0557 
0503 
0509 
0989 
0722 
0696 
0704 
0907 
0912 
0918 
0827 
0263 
0552 
0572 


0991 


0165 
0153 
0427 
0507 
0510 
0938 
0787 
0346 


0444 
0293 
0978 
0393 


0995 
0357 
0024 
0161 


0997 
0630 
0430 


0116 
0392 
0386 


0397 
0789 
0337 
0857 
0639 
1012 
0264 
0460 


Mar 21, 1982 08:25:01 


0554 0595 0836 0915 


0512 0533 0699 0920 0961 


0728 


0924 
0878 


0555 


0821 0963 


0950 
0467 0491 
0524 


0492 
0692 


0613 0623 


0952 


0823 


0415 0436 0462 0642 0658 0865 0868 0873 0914 0917 


1007 


1013 1014 1015 1016 1017 1019 


0305 0395 
0476 
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CROMEMCO 280 Macro Assembler version 03.08 
CROMEMCO Z780 MONITOR 


Symbol 


PNM 
PRL 
PRMPT 
PROG 
PS1 
PSNHL 
PSNM 
RB1 
READB 
RETN 
RGTBL 
RSTO8H 
RSTLOH 
RST1 8H 
RST20H 
RST2 8H 
RST38H 
RSTLC 
RT1 
RT2 
RT3 
SK1 
SKSG 
SKSGO 
SKSGCR 
sml 
SPACE 
SR2 
SR3 
SR4 
SR5 
SR6 
SRB 
STAT 
SUBM 
SUBR 
SUBR2 
SUBR3 
SUBST 
SVMS 
TBE 
TEMPS 
VERIF 
VRFY 
WB1 
WRITB 
WSTART 


Value 


022B 
0134 
03C6 
0125 
024F 
022E 
0228 
0399 
0396 
0299 
03F3 
10F2 
10F4 
10F6 
10F8 
10FA 
10FE 
0030 
02A7 
02B2 
02BC 
021E 
021D 
021C 
0194 
02EC 
0141 
0306 
0309 
0328 
0343 
0352 
0361 
0000 
02E6 
O2FC 
0305 
0357 
02E4 
0080 
0080 
0016 
01A5 
01A8 
03A7 
03A4 
003B 


Defn 


0612 
0356 
0981 
0346 
0656 
0620 
0606 
0939 
0938 
0730 
1012 
0063 
0064 
0065 
0066 
0067 
0068 
0028 
0744 
0758 
0767 
0595 
0594 
0592 
0449 
0823 
0373 
0841 
0842 
0860 
0873 
0883 
0892 
0013 
0819 
0835 
0840 
0887 
0816 
0189 
0021 
0025 
0467 
0473 
0951 
0950 
0105 


Figure B-1: 


References 


0905 
0362 
0304 
0998 
0660 
0480 
0477 
0940 
1000 
0694 
0849 
0078 
0080 
0082 
0084 
0086 
0092 
0714 
0741 
0764 
0763 
0597 
0449 
0311 
0534 
0832 
0606 
0838 
0885 
0856 
0871 
0853 
0888 
0114 


0816 
0784 
0266 
1001 
0089 
0115 
0206 
1004 
0364 
0955 
1005 


0909 


0479 0790 
0944 


0505 0550 0693 
0328 
0841 


0620 0797 0798 0824 0928 
0891 0893 


0858 
0171 


0486 0493 
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Index 


abbreviating commands, 36 

abbreviations of commands and functions, 37 
aborting running programs, Control Basic, 36 
ABS function, 40 

Addressing scheme, MCB-216, 5 

ALT-MODE key, using for corrections, 26 

AND function, 40 

arithmetic operators, Control Basic, 40 
arrays, Control Basic, 39 

assignment commands, 54 


baud rate selection, 7-80 Monitor, 79 


CALL command, 47 

command abbreviations, Control Basic, 37 
command format, Z~80 Monitor, 74 
command, definition, 35 

commands, assignment, 54 

compare operators, Control Basic, 40 
constants, Control Basic, 38 

Control Basic functions, 39 

Control Basic interrupts, 32 

Control Basic, abbreviating commands, 36 
Control Basic, dot matrix printer, 28 
Control Basic, entering and exiting, 24 
Control Basic, entering programs, 26 
Control Basic, features, 4 

Control Basic, language elements, 35 
Control Basic, memory allocation, 29 
Control Basic, paper tape reader, 27 
Control Basic, uses, 3 

Control-C, program abort, 36 

correcting statements, Control Basic, 26 
current program, definition, 35 


definitions of important terms, 35 

DELete key, using for corrections, 26 
deleting statements, Control Basic, 26 
differences between MCB-216 and MCB-216/P, 24 
direct command, definition, 35 

display memory command, 83 

display registers command, 83 

DM command, 83 

dot matrix printer, 28 

DR command, 83 


elements of Control Basic language, 35 
entering Control Basic, 24 
entering Control Basic programs from console, 26 
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Index 


entering statements, Control Basic, 26 
entering Z-80 Monitor, 73 

EPROMS, programming, 14 

errors and escapes, 7-80 Monitor, 78 
ESCape key, uSing for corrections, 26 
Executing programs in PROMs, 8 

exiting Control Basic, 24 

expression operators, Control Basic, 40 
expressions, forming, 41 


Features of Control Basic, 4 
Features of 2-80 Monitor, 4 
FOR command, 48 

FOR-NEXT loops, 48 

function, definition, 35 
functions, Control Basic, 39 


G command, 84 

GET function, 40, 59 

go to an address command, 84 

go with breakpoints set command, 84 
GOSUB command, 50 

GOTO command, 50 


Hardware requirements, 5 
HOW? error message, 69 


I command, 85 

I/O drivers, Control Basic, 32 

IF command, 51 

IN function, 40, 55 

initialize baud rate command, 85 

INPUT command, 52 

input, 2-80 Monitor, 78 

integers, 38 

interrupts, using with Control Basic, 32 
interrupts, 2-80 Monitor, 80 


LET command, 54 
LIST command, 64 
LOAD command, 64 
LOC function, 40 
LOCK command, 65 


M command, 86 
MCB-216 addressing scheme, 5 
MCB-216 version, 3, 24 
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MCB-216/P version, 3, 24 

memory allocation, Control Basic, 29 

move memory command, 86 

multiple commands, 2-80 Monitor, 75 
multiple-command statement, definition, 35 


N command, 86 

NEW command, 65 
NEXT command, 55 
NULL command, 66 
nulls command, 86 


O command, 86 

operators, Control Basic, 40 
OR function, 40 

OUT command, 55 

output command, 86 

output, 7-80 Monitor, 78 


P command, 87 | 

paper tape reader, Control Basic, 27 
prime number example, Control Basic, 42 
PRINT command, 56 

program PROMS command, 87 

Programming EPROMs, 14 

PROMs, executing programs, 8 

PUT command, 58 


R command, 88 

RDOS command, 25, 66 

read command, 88 

REM command, 59 

RETURN command, 59 

RND function, 40 

RUBout key, using for corrections, 26 
RUN command, 60 


S command, 89 

SAVE command, 67 

SGN function, 40 

SIZE function, 40 

SM command, 88 

SORRY error message, 70 

spaces within statements, Control Basic, 36 
Statement, definition, 35 

STEP portion of FOR command, 48 
STOP command, 61 

strings, 39 
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substitute memory command, 88 
substitute register command, 89 


swath operator, 75 


system stack, 


text area, 
text area, MCB-216, 


U command, 
UART select command, 
UART selection, 
Uses of MCB-216 software, 


V command, 
variables, 39 


89 


89 


Z-80 Monitor, 74 


verify command, 89 


W command, 


90 


definition, 


31 


89 


Z-80 Monitor, 79 


WHAT? error message, 69 


WIDTH command, 


67 


write command, 90 


XOR function, 40 


2-80 
2-80 
2-80 
2-80 
2-80 
2-80 
2-80 
2-80 
2-80 
2-80 
2-80 


Monitor, 


Monitor features, 
baud rates and UART selection, 
command format, 74 ` 

entering, 73 

errors and escapes, 78 

input and output, 78 
interrupts, 80 

multiple commands, 75 

system stack, 74 


Monitor, 
Monitor, 
Monitor, 
Monitor, 
Monitor, 
Monitor, 
Monitor, 
Monitor, 
Monitor, 


73 


uses, 
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